(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    979883,      19784]
NotebookOptionsPosition[    974201,      19687]
NotebookOutlinePosition[    974544,      19702]
CellTagsIndexPosition[    974501,      19699]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7857007400314693`*^9, 3.785700741889783*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"b218a98f-b5b7-4a2d-b51a-c62217f477d0"],

Cell[CellGroupData[{

Cell["Import and transform data", "Subsection",
 CellChangeTimes->{{3.7754722319244394`*^9, 
  3.7754722348204765`*^9}},ExpressionUUID->"e31d60e6-a349-43fd-9440-\
b11a40c41d1d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global*`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mycolor", "[", "len_List", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ColorData", "[", "\"\<DarkRainbow\>\"", "]"}], "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Length", "@", "len"}], "-", "1"}], ")"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "@", "len"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mycolor", "[", "len_Integer", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ColorData", "[", "\"\<DarkRainbow\>\"", "]"}], "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"len", "-", "1"}], ")"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "len"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"myticks", "[", 
    RowBox[{"min_", ",", "max_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Switch", "[", 
        RowBox[{
         RowBox[{"Head", "[", "i", "]"}], ",", "Integer", ",", "i", ",", 
         "Rational", ",", 
         RowBox[{"N", "@", "i"}], ",", "True", ",", "i"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"FindDivisions", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"min", ",", "max"}], "}"}], ",", "n"}], "]"}]}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"myticksfull", "[", 
    RowBox[{
    "lmin_", ",", "lmax_", ",", "ln_", ",", "rmin_", ",", "rmax_", ",", 
     "rn_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"myticks", "[", 
        RowBox[{"lmin", ",", "lmax", ",", "ln"}], "]"}], ",", "None"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"myticks", "[", 
        RowBox[{"rmin", ",", "rmax", ",", "rn"}], "]"}], ",", "None"}], 
      "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<ErrorBarPlots`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"data", ",", "metadata"}], "}"}], "=", 
   RowBox[{"Import", "/@", 
    RowBox[{"Flatten", "@", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
       "FileNames", "[", "\"\<sotu-table-dada2_wtaxonomy.csv\>\"", "]"}], ",", 
       RowBox[{
       "FileNames", "[", "\"\<microcosm_metadata_exp_filt.csv\>\"", "]"}]}], 
      "}"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metadataHeader", "=", 
   RowBox[{"metadata", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metadata", "=", 
   RowBox[{"metadata", "[", 
    RowBox[{"[", 
     RowBox[{"2", ";;", 
      RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataHeader", "=", 
   RowBox[{"data", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"2", ";;", 
      RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataTable", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"dataHeader", ",", "#"}], "}"}], "]"}], "&"}], "/@", 
    "data"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expList", "=", 
   RowBox[{"DeleteDuplicates", "@", 
    RowBox[{"metadata", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"filtered", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{"dataTable", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", 
             RowBox[{"6", ";;", 
              RowBox[{"-", "5"}]}], ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{"MemberQ", "[", 
            RowBox[{"#", ",", "x"}], "]"}]}]}], "]"}], "&"}], "@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"StringJoin", "[", 
           RowBox[{"i", ",", "\"\<.D\>\"", ",", 
            RowBox[{"StringPadLeft", "[", 
             RowBox[{
              RowBox[{"ToString", "@", "#"}], ",", "2", ",", "\"\<0\>\""}], 
             "]"}]}], "]"}], "&"}], "/@", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "63", ",", "3"}], "]"}]}], ")"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "expList"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"unfiltered", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{"dataTable", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", 
             RowBox[{"6", ";;", 
              RowBox[{"-", "5"}]}], ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{"MemberQ", "[", 
            RowBox[{"#", ",", "x"}], "]"}]}]}], "]"}], "&"}], "@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"StringJoin", "[", 
           RowBox[{"i", ",", "\"\<.D\>\"", ",", 
            RowBox[{"StringPadLeft", "[", 
             RowBox[{
              RowBox[{"ToString", "@", "#"}], ",", "2", ",", "\"\<0\>\""}], 
             "]"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"#", "\[Equal]", "0"}], ",", "\"\<\>\"", ",", 
              "\"\<.U\>\""}], "]"}]}], "]"}], "&"}], "/@", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "63", ",", "3"}], "]"}]}], ")"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "expList"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataTableTr", "=", 
   RowBox[{"Transpose", "@", "dataTable"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalExpDataFiltered", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dataTableTr", "[", 
          RowBox[{"[", 
           RowBox[{"6", ";;", 
            RowBox[{"-", "5"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "#", "]"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "&"}], "/@", 
      RowBox[{"filtered", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "@", "filtered"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"totalExpDataUnfiltered", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"dataTableTr", "[", 
           RowBox[{"[", 
            RowBox[{"6", ";;", 
             RowBox[{"-", "5"}]}], "]"}], "]"}], "[", 
          RowBox[{"[", "#", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "&"}], "/@", 
       RowBox[{"unfiltered", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "@", "unfiltered"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalExpData", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"totalExpDataFiltered", ",", "totalExpDataUnfiltered"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"totalExpData", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"dataTableTr", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"Transpose", "@", "#"}]}], "}"}], "]"}], "&"}], "/@", 
     "totalExpData"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalReads", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Total", "@", 
      RowBox[{"totalExpData", "[", 
       RowBox[{"[", 
        RowBox[{"#", ",", "All", ",", "2"}], "]"}], "]"}]}], "&"}], "/@", 
    RowBox[{"Range", "[", 
     RowBox[{"Length", "@", "totalExpData"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalExpDataComposition", "=", "totalExpData"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalExpDataNoTime", "=", "totalExpDataComposition"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalExpDataCompositionNoTime", "=", "totalExpDataNoTime"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "@", "totalExpData"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"totalExpDataComposition", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "/", 
        RowBox[{"totalReads", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"totalExpData", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "@", "totalExpDataNoTime"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"totalExpDataCompositionNoTime", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "/", 
        RowBox[{"totalReads", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"totalExpDataNoTime", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"namesASV", "=", 
   RowBox[{"totalExpDataCompositionNoTime", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"presentAtAllPastT0", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"#", ",", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", 
             RowBox[{"2", ";;", 
              RowBox[{"-", "1"}]}]}], "]"}], "]"}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{"x", ">", " ", "0.00"}]}]}], "]"}], "&"}]}], "]"}], "&"}], 
    "/@", 
    RowBox[{"(", "totalExpDataCompositionNoTime", 
     RowBox[{"(*", 
      RowBox[{"/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x_", "/;", 
          RowBox[{"x", "<", "0.005"}]}], "\[Rule]", "0"}], "}"}]}], "*)"}], 
     ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"presentAtAllPastT0", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "/", 
        RowBox[{"Total", "@", 
         RowBox[{"presentAtAllPastT0", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
      RowBox[{"presentAtAllPastT0", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"presentAtAllPastT7", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"#", ",", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", 
             RowBox[{"7", ";;", 
              RowBox[{"-", "1"}]}]}], "]"}], "]"}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{"x", ">", "0.00"}]}]}], "]"}], "&"}]}], "]"}], "&"}], "/@", 
    RowBox[{"(", "totalExpDataCompositionNoTime", ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"presentAtAllPastT7", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "/", 
        RowBox[{"Total", "@", 
         RowBox[{"presentAtAllPastT7", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
      RowBox[{"presentAtAllPastT7", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "@", "presentAtAllPastT7"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"meanReads", "=", 
   RowBox[{"1.", 
    RowBox[{"Mean", "@", 
     RowBox[{"Mean", "@", "totalReads"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalExpDataCLRNoTime", "=", "presentAtAllPastT7"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "@", "totalExpDataNoTime"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"totalExpDataCLRNoTime", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", "#", ")"}], 
          RowBox[{"totalReads", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}], "&"}], "/@", 
       RowBox[{"presentAtAllPastT7", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"totalExpDataCLRNoTime", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"1.", 
           RowBox[{"#", "/", 
            RowBox[{"GeometricMean", "@", "#"}]}]}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"1.", 
          RowBox[{"Transpose", "@", 
           RowBox[{"totalExpDataCLRNoTime", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], ")"}]}], 
       "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"familyAssocation", "=", 
   RowBox[{"AssociationThread", "[", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Select", "[", 
             RowBox[{"#", ",", 
              RowBox[{
               RowBox[{"StringContainsQ", "[", 
                RowBox[{
                 RowBox[{"StringTake", "[", 
                  RowBox[{"#", ",", "2"}], "]"}], ",", "\"\<f\>\""}], "]"}], 
               "&"}]}], "]"}], "&"}], "@", 
           RowBox[{"StringSplit", "[", 
            RowBox[{"#", ",", "\"\<;\>\""}], "]"}]}], "&"}], "/@", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"-", "2"}]}], "]"}], "]"}]}], ")"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"{", "}"}], "\[Rule]", 
          RowBox[{"{", "\"\< f__N/A\>\"", "}"}]}], ",", 
         RowBox[{
          RowBox[{"{", "\"\< f__\>\"", "}"}], "\[Rule]", 
          RowBox[{"{", "\"\< f__N/A\>\"", "}"}]}]}], "}"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalExpDataCLRFamilyNoTime", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "@", 
           RowBox[{"#", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "&"}], "/@", 
       RowBox[{"GatherBy", "[", 
        RowBox[{
         RowBox[{"MapAt", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"familyAssocation", "[", "#", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "#", ",", 
           RowBox[{"{", 
            RowBox[{"All", ",", "1"}], "}"}]}], "]"}], ",", "First"}], 
        "]"}]}], "&"}], "/@", "presentAtAllPastT7"}], "\[IndentingNewLine]", 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "@", "totalExpDataNoTime"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", "#", ")"}], 
          RowBox[{"totalReads", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}], "&"}], "/@", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"Total", "@", 
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "&"}], "/@", 
            RowBox[{"GatherBy", "[", 
             RowBox[{
              RowBox[{"MapAt", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"familyAssocation", "[", "#", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "#", ",", 
                RowBox[{"{", 
                 RowBox[{"All", ",", "1"}], "}"}]}], "]"}], ",", "First"}], 
             "]"}]}], "&"}], "/@", "presentAtAllPastT7"}], 
         "\[IndentingNewLine]", ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"1.", 
           RowBox[{"#", "/", 
            RowBox[{"GeometricMean", "@", "#"}]}]}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"1.", 
          RowBox[{"Transpose", "@", 
           RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], ")"}]}], 
       "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.758549729415467*^9, 3.758549733126091*^9}, {
   3.7754712870807004`*^9, 3.7754713046651525`*^9}, {3.7754715028898563`*^9, 
   3.775471520729472*^9}, {3.7754716791763315`*^9, 3.7754716793854847`*^9}, {
   3.7754717165677853`*^9, 3.775471718007799*^9}, {3.7754722243260508`*^9, 
   3.77547222450519*^9}, {3.7754724586462984`*^9, 3.7754724588314295`*^9}, 
   3.775480345541078*^9, {3.7856998006243815`*^9, 3.785699885762561*^9}, {
   3.7857007218836536`*^9, 3.785700795946993*^9}, {3.785701003562351*^9, 
   3.7857010117801466`*^9}, {3.7857011838564577`*^9, 3.78570119355031*^9}, {
   3.7857016805615973`*^9, 3.785701681474243*^9}, {3.790008472917014*^9, 
   3.790008487057043*^9}, {3.7903428146170273`*^9, 3.79034281477557*^9}, {
   3.7906276551123066`*^9, 3.7906276727759695`*^9}, {3.7906277073994913`*^9, 
   3.7906277350180726`*^9}},
 CellLabel->
  "In[532]:=",ExpressionUUID->"1cd405ef-f065-4f1c-9358-25bdc0d6a8ec"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.7857009231730165`*^9, {3.7900083987990117`*^9, 3.79000842054342*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"c8a0bc07-cc4e-4264-b1a5-8d04c890a892"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7857009320642853`*^9, 3.7857009510457*^9}, 
   3.785701013620447*^9},
 CellLabel->
  "In[344]:=",ExpressionUUID->"d8f03e80-b927-495a-8d83-c2ff5137edcc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Compute extinction times", "Subsection",
 CellChangeTimes->{{3.7754722419244976`*^9, 
  3.7754722450286922`*^9}},ExpressionUUID->"f4031efd-c54c-4d32-809a-\
a8f650e0da45"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ran", "=", 
   RowBox[{"Reverse", "@", 
    RowBox[{"Range", "@", "21"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"presentAtAll", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"#", ",", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{"x", ">", "0"}]}]}], "]"}], "&"}]}], "]"}], "&"}], "/@", 
    "totalExpDataComposition"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"allGoingExtinct", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"presentAtAll", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "All", ",", "2", ",", 
            RowBox[{"2", ";;", 
             RowBox[{"-", "1"}]}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Total", "@", "#"}], ">", "0"}], "&&", 
          RowBox[{
           RowBox[{"Total", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"-", "5"}], ";;", 
               RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}], "\[Equal]", "0"}]}],
          "&"}]}], "]"}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "20"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"timeWhenGoingExtinct", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"TakeWhile", "[", 
            RowBox[{"#", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], "&"}], "@", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"ran", "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", 
                RowBox[{"Length", "@", "#"}]}], "]"}], "]"}], ",", "#"}], 
            "}"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "&"}], "/@", 
      RowBox[{"(", 
       RowBox[{"Reverse", "/@", 
        RowBox[{
         RowBox[{"GatherBy", "[", 
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"allGoingExtinct", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ")"}], ",", 
             RowBox[{"x_", "/;", 
              RowBox[{"x", "\[Equal]", "0"}]}]}], "]"}], ",", "First"}], 
          "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "20"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7857010308926554`*^9, 3.7857010345632505`*^9}, {
   3.7857010807328854`*^9, 3.7857010852460766`*^9}, 3.7857011275239716`*^9, {
   3.7900083554092646`*^9, 3.7900083588146777`*^9}, {3.7900085022257814`*^9, 
   3.7900085064457808`*^9}, {3.7900086194233727`*^9, 3.790008620253951*^9}},
 CellLabel->
  "In[570]:=",ExpressionUUID->"23256e59-ef26-4ad3-bf53-61df982a4a68"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a1", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Transpose", "@", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Most", "@", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "-", ".5"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}], "@", 
          RowBox[{"HistogramList", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", "1", "}"}], ",", "\"\<PDF\>\""}], "]"}]}], "&"}], "/@", 
        RowBox[{"timeWhenGoingExtinct", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"mycolor", "@", "10"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<transfer \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\>\"", 
          ",", "\"\<p(going extinct at \
\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\
\"Italic\"]\)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{"SwatchLegend", "[", 
           RowBox[{
            RowBox[{"Range", "@", "10"}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
          RowBox[{"Scaled", "@", 
           RowBox[{"{", 
            RowBox[{"0.7", ",", "0.8"}], "}"}]}]}], "]"}]}], ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"myticksfull", "[", 
         RowBox[{"0", ",", "0.3", ",", "5", ",", "0", ",", "16", ",", "4"}], 
         "]"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "\"\<main experiment\>\""}]}], "]"}], 
     ",", 
     RowBox[{"ErrorListPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "@", "#"}], ",", 
           RowBox[{"ErrorBar", "[", 
            RowBox[{"Last", "@", 
             RowBox[{"StandardDeviation", "@", "#"}]}], "]"}]}], "}"}], "&"}],
         "/@", 
        RowBox[{"GatherBy", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Transpose", "@", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Most", "@", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "-", ".5"}], ",", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}], "@", 
               RowBox[{"HistogramList", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", "1", "}"}], ",", "\"\<PDF\>\""}], "]"}]}], 
              "&"}], "/@", 
             RowBox[{"timeWhenGoingExtinct", "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], ",", "1"}], "]"}], 
          ",", "First"}], "]"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}], 
           RowBox[{"x", "-", "1"}]], " ", "p"}], "/.", 
         RowBox[{"p", "\[Rule]", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Mean", "@", 
              RowBox[{"(", 
               RowBox[{"Flatten", "@", 
                RowBox[{"timeWhenGoingExtinct", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], ")"}]}], "-", 
             "1"}], ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "16"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a2", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Transpose", "@", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Most", "@", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "-", ".5"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}], "@", 
          RowBox[{"HistogramList", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", "1", "}"}], ",", "\"\<PDF\>\""}], "]"}]}], "&"}], "/@", 
        RowBox[{"timeWhenGoingExtinct", "[", 
         RowBox[{"[", 
          RowBox[{"11", ";;", "20"}], "]"}], "]"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"mycolor", "@", "10"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<transfer \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\>\"", 
          ",", "\"\<p(going extinct at \
\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\
\"Italic\"]\)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{"SwatchLegend", "[", 
           RowBox[{
            RowBox[{"Range", "@", "10"}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
          RowBox[{"Scaled", "@", 
           RowBox[{"{", 
            RowBox[{"0.7", ",", "0.8"}], "}"}]}]}], "]"}]}], ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"myticksfull", "[", 
         RowBox[{"0", ",", "0.4", ",", "5", ",", "0", ",", "16", ",", "4"}], 
         "]"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "\"\<repetitions\>\""}]}], "]"}], ",", 
     RowBox[{"ErrorListPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "@", "#"}], ",", 
           RowBox[{"ErrorBar", "[", 
            RowBox[{"Last", "@", 
             RowBox[{"StandardDeviation", "@", "#"}]}], "]"}]}], "}"}], "&"}],
         "/@", 
        RowBox[{"GatherBy", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Transpose", "@", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Most", "@", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "-", ".5"}], ",", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}], "@", 
               RowBox[{"HistogramList", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", "1", "}"}], ",", "\"\<PDF\>\""}], "]"}]}], 
              "&"}], "/@", 
             RowBox[{"timeWhenGoingExtinct", "[", 
              RowBox[{"[", 
               RowBox[{"11", ";;", "20"}], "]"}], "]"}]}], ",", "1"}], "]"}], 
          ",", "First"}], "]"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}], 
           RowBox[{"x", "-", "1"}]], " ", "p"}], "/.", 
         RowBox[{"p", "\[Rule]", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Mean", "@", 
              RowBox[{"(", 
               RowBox[{"Flatten", "@", 
                RowBox[{"timeWhenGoingExtinct", "[", 
                 RowBox[{"[", 
                  RowBox[{"11", ";;", "20"}], "]"}], "]"}]}], ")"}]}], "-", 
             "1"}], ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "16"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a3", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Transpose", "@", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Most", "@", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "-", ".5"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}], "@", 
          RowBox[{"HistogramList", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", "1", "}"}], ",", "\"\<PDF\>\""}], "]"}]}], "&"}], "/@", 
        RowBox[{"timeWhenGoingExtinct", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "20"}], "]"}], "]"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"mycolor", "@", "10"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<transfer \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\>\"", 
          ",", "\"\<p(going extinct at \
\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\
\"Italic\"]\)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{"SwatchLegend", "[", 
           RowBox[{
            RowBox[{"Range", "@", "10"}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
          RowBox[{"Scaled", "@", 
           RowBox[{"{", 
            RowBox[{"0.7", ",", "0.8"}], "}"}]}]}], "]"}]}], ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"myticksfull", "[", 
         RowBox[{"0", ",", "0.4", ",", "5", ",", "0", ",", "16", ",", "4"}], 
         "]"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "\"\<all together\>\""}]}], "]"}], ",", 
     RowBox[{"ErrorListPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Mean", "@", "#"}], ",", 
           RowBox[{"ErrorBar", "[", 
            RowBox[{"Last", "@", 
             RowBox[{"StandardDeviation", "@", "#"}]}], "]"}]}], "}"}], "&"}],
         "/@", 
        RowBox[{"GatherBy", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Transpose", "@", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Most", "@", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "-", ".5"}], ",", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}], "@", 
               RowBox[{"HistogramList", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", "1", "}"}], ",", "\"\<PDF\>\""}], "]"}]}], 
              "&"}], "/@", 
             RowBox[{"timeWhenGoingExtinct", "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", "20"}], "]"}], "]"}]}], ",", "1"}], "]"}], 
          ",", "First"}], "]"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}], 
           RowBox[{"x", "-", "1"}]], " ", "p"}], "/.", 
         RowBox[{"p", "\[Rule]", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Mean", "@", 
              RowBox[{"(", 
               RowBox[{"Flatten", "@", 
                RowBox[{"timeWhenGoingExtinct", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ";;", "20"}], "]"}], "]"}]}], ")"}]}], "-", 
             "1"}], ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "16"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7719529224102235`*^9, 3.7719529422802863`*^9}, {
   3.7719530541162386`*^9, 3.771953076340971*^9}, {3.7719531446567736`*^9, 
   3.771953283771597*^9}, 3.7719533156761723`*^9, {3.771953503929068*^9, 
   3.7719535467006783`*^9}, 3.7719583672418194`*^9, {3.7719585819710484`*^9, 
   3.7719586517214117`*^9}, {3.771958693876256*^9, 3.771958716682743*^9}, {
   3.7719587476916833`*^9, 3.7719587785675306`*^9}, {3.7719588086958427`*^9, 
   3.7719588129338417`*^9}, 3.7719588572862473`*^9, {3.7719593894279623`*^9, 
   3.7719595498225155`*^9}, {3.772382906066271*^9, 3.772382917850155*^9}, {
   3.7723829506433983`*^9, 3.7723829666866217`*^9}, {3.782252625943636*^9, 
   3.7822526581571198`*^9}, {3.7834624288036213`*^9, 
   3.7834624608718586`*^9}, {3.7834626889137735`*^9, 3.783462833877594*^9}, 
   3.7857011485147963`*^9},
 CellLabel->
  "In[574]:=",ExpressionUUID->"fa23bb27-e2d4-4aa1-bcaa-f06518051ce6"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[
      GraphicsBox[{{{{}, {{{}, {}, 
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.19444444444444442`}, {2., 
               0.16666666666666666`}, {3., 0.1388888888888889}, {4., 
               0.1388888888888889}, {5., 0.05555555555555555}, {6., 0.}, {7., 
               0.1388888888888889}, {8., 0.027777777777777776`}, {9., 
               0.027777777777777776`}, {10., 0.}, {11., 
               0.05555555555555555}, {12., 0.}, {13., 
               0.027777777777777776`}, {14., 0.027777777777777776`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.3181818181818182}, {2., 0.09090909090909091}, {
               3., 0.022727272727272728`}, {4., 0.11363636363636365`}, {5., 
               0.045454545454545456`}, {6., 0.1590909090909091}, {7., 
               0.022727272727272728`}, {8., 0.06818181818181818}, {9., 
               0.045454545454545456`}, {10., 0.045454545454545456`}, {11., 
               0.022727272727272728`}, {12., 0.}, {13., 0.}, {14., 
               0.022727272727272728`}, {15., 0.022727272727272728`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.12903225806451613`}, {2., 
               0.06451612903225806}, {3., 0.12903225806451613`}, {4., 
               0.0967741935483871}, {5., 0.0967741935483871}, {6., 0.}, {7., 
               0.1935483870967742}, {8., 0.06451612903225806}, {9., 
               0.0967741935483871}, {10., 0.}, {11., 0.03225806451612903}, {
               12., 0.03225806451612903}, {13., 0.}, {14., 
               0.03225806451612903}, {15., 0.}, {16., 0.03225806451612903}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2}, {2., 0.12}, {3., 0.24}, {4., 0.08}, {5., 
               0.04}, {6., 0.08}, {7., 0.12}, {8., 0.}, {9., 0.04}, {10., 
               0.}, {11., 0.}, {12., 0.04}, {13., 0.04}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2878787878787879}, {2., 0.12121212121212122`}, {
               3., 0.09090909090909091}, {4., 0.09090909090909091}, {5., 
               0.015151515151515152`}, {6., 0.07575757575757576}, {7., 
               0.06060606060606061}, {8., 0.}, {9., 0.030303030303030304`}, {
               10., 0.030303030303030304`}, {11., 0.030303030303030304`}, {
               12., 0.015151515151515152`}, {13., 0.07575757575757576}, {14., 
               0.045454545454545456`}, {15., 0.030303030303030304`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.08333333333333333}, {2., 0.125}, {3., 
               0.08333333333333333}, {4., 0.16666666666666666`}, {5., 
               0.08333333333333333}, {6., 0.0625}, {7., 
               0.10416666666666666`}, {8., 0.0625}, {9., 
               0.020833333333333332`}, {10., 0.0625}, {11., 
               0.041666666666666664`}, {12., 0.}, {13., 
               0.020833333333333332`}, {14., 0.}, {15., 
               0.020833333333333332`}, {16., 0.0625}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2631578947368421}, {2., 0.14473684210526316`}, {
               3., 0.07894736842105263}, {4., 0.14473684210526316`}, {5., 
               0.}, {6., 0.09210526315789473}, {7., 0.039473684210526314`}, {
               8., 0.039473684210526314`}, {9., 0.02631578947368421}, {10., 
               0.02631578947368421}, {11., 0.039473684210526314`}, {12., 
               0.02631578947368421}, {13., 0.02631578947368421}, {14., 
               0.013157894736842105`}, {15., 0.013157894736842105`}, {16., 
               0.02631578947368421}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.25}, {2., 0.1111111111111111}, {3., 
               0.19444444444444442`}, {4., 0.}, {5., 0.027777777777777776`}, {
               6., 0.08333333333333333}, {7., 0.027777777777777776`}, {8., 
               0.05555555555555555}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 
               0.05555555555555555}, {13., 0.1388888888888889}, {14., 0.}, {
               15., 0.}, {16., 0.05555555555555555}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.3076923076923077}, {2., 0.3076923076923077}, {
               3., 0.}, {4., 0.}, {5., 0.}, {6., 0.07692307692307693}, {7., 
               0.}, {8., 0.07692307692307693}, {9., 0.07692307692307693}, {
               10., 0.}, {11., 0.07692307692307693}, {12., 0.}, {13., 0.}, {
               14., 0.07692307692307693}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.19148936170212766`}, {2., 0.0851063829787234}, {
               3., 0.14893617021276595`}, {4., 0.10638297872340426`}, {5., 
               0.0851063829787234}, {6., 0.0425531914893617}, {7., 
               0.02127659574468085}, {8., 0.1276595744680851}, {9., 0.}, {10.,
                0.02127659574468085}, {11., 0.}, {12., 0.0425531914893617}, {
               13., 0.06382978723404255}, {14., 0.02127659574468085}, {15., 
               0.}, {16., 0.0425531914893617}}],
              FontFamily->"Europa-Light",
              FontSize->18]}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              
              FontSize->
               18]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              
              FontSize->
               18]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{}, {
           {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
            
            StyleBox[{
              PointBox[{{1., 0.2225210206034177}, {2., 0.1336950651707542}, {
               3., 0.11272188270013653`}, {4., 0.09379950244780647}, {5., 
               0.044915330379983784`}, {6., 0.06722633497521514}, {7., 
               0.07284653337186481}, {8., 0.0522587616149098}, {9., 
               0.03643817468138351}, {10., 0.01858499609759408}, {11., 
               0.029890735090225752`}, {12., 0.021183411618624564`}, {13., 
               0.03934031524653025}, {14., 0.026619469764480538`}, {15., 
               0.012431647300068353`}, {16., 
               0.0438365202069461}}], {{
                LineBox[{{1., 0.2995888401518842}, {1., 0.1454532010549512}}],
                 LineBox[{
                 Offset[{1.5, 0}, {1., 0.2995888401518842}], 
                  Offset[{-1.5, 0}, {1., 0.2995888401518842}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {1., 0.1454532010549512}], 
                  Offset[{-1.5, 0}, {1., 0.1454532010549512}]}]}, {
                LineBox[{{2., 0.20151044397667134`}, {2., 
                 0.06587968636483703}}], 
                LineBox[{
                 Offset[{1.5, 0}, {2., 0.20151044397667134`}], 
                  Offset[{-1.5, 0}, {2., 0.20151044397667134`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {2., 0.06587968636483703}], 
                  Offset[{-1.5, 0}, {2., 0.06587968636483703}]}]}, {
                LineBox[{{3., 0.18607488507520437`}, {3., 
                 0.0393688803250687}}], 
                LineBox[{
                 Offset[{1.5, 0}, {3., 0.18607488507520437`}], 
                  Offset[{-1.5, 0}, {3., 0.18607488507520437`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {3., 0.0393688803250687}], 
                  Offset[{-1.5, 0}, {3., 0.0393688803250687}]}]}, {
                LineBox[{{4., 0.1498683656152737}, {4., 
                 0.037730639280339234`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {4., 0.1498683656152737}], 
                  Offset[{-1.5, 0}, {4., 0.1498683656152737}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {4., 0.037730639280339234`}], 
                  Offset[{-1.5, 0}, {4., 0.037730639280339234`}]}]}, {
                LineBox[{{5., 0.08008574910383512}, {5., 
                 0.009744911656132456}}], 
                LineBox[{
                 Offset[{1.5, 0}, {5., 0.08008574910383512}], 
                  Offset[{-1.5, 0}, {5., 0.08008574910383512}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {5., 0.009744911656132456}], 
                  Offset[{-1.5, 0}, {5., 0.009744911656132456}]}]}, {
                LineBox[{{6., 0.11355527279203367`}, {6., 
                 0.020897397158396613`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {6., 0.11355527279203367`}], 
                  Offset[{-1.5, 0}, {6., 0.11355527279203367`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {6., 0.020897397158396613`}], 
                  Offset[{-1.5, 0}, {6., 0.020897397158396613`}]}]}, {
                LineBox[{{7., 0.1360109709083695}, {7., 
                 0.009682095835360102}}], 
                LineBox[{
                 Offset[{1.5, 0}, {7., 0.1360109709083695}], 
                  Offset[{-1.5, 0}, {7., 0.1360109709083695}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {7., 0.009682095835360102}], 
                  Offset[{-1.5, 0}, {7., 0.009682095835360102}]}]}, {
                LineBox[{{8., 0.0903199444275024}, {8., 
                 0.014197578802317201`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {8., 0.0903199444275024}], 
                  Offset[{-1.5, 0}, {8., 0.0903199444275024}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {8., 0.014197578802317201`}], 
                  Offset[{-1.5, 0}, {8., 0.014197578802317201`}]}]}, {
                LineBox[{{9., 0.06714745919644413}, {9., 
                 0.005728890166322893}}], 
                LineBox[{
                 Offset[{1.5, 0}, {9., 0.06714745919644413}], 
                  Offset[{-1.5, 0}, {9., 0.06714745919644413}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {9., 0.005728890166322893}], 
                  Offset[{-1.5, 0}, {9., 0.005728890166322893}]}]}, {
                LineBox[{{10., 0.04114807520842782}, {
                 10., -0.003978083013239663}}], 
                LineBox[{
                 Offset[{1.5, 0}, {10., 0.04114807520842782}], 
                  Offset[{-1.5, 0}, {10., 0.04114807520842782}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {10., -0.003978083013239663}], 
                  Offset[{-1.5, 0}, {10., -0.003978083013239663}]}]}, {
                LineBox[{{11., 0.05536116942717571}, {11., 
                 0.0044203007532757944`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {11., 0.05536116942717571}], 
                  Offset[{-1.5, 0}, {11., 0.05536116942717571}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {11., 0.0044203007532757944`}], 
                  Offset[{-1.5, 0}, {11., 0.0044203007532757944`}]}]}, {
                LineBox[{{12., 0.042192659567279425`}, {12., 
                 0.00017416366996970273`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {12., 0.042192659567279425`}], 
                  Offset[{-1.5, 0}, {12., 0.042192659567279425`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {12., 0.00017416366996970273`}], 
                  Offset[{-1.5, 0}, {12., 0.00017416366996970273`}]}]}, {
                LineBox[{{13., 0.08296131545731933}, {
                 13., -0.0042806849642588254`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {13., 0.08296131545731933}], 
                  Offset[{-1.5, 0}, {13., 0.08296131545731933}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {13., -0.0042806849642588254`}], 
                  Offset[{-1.5, 0}, {13., -0.0042806849642588254`}]}]}, {
                LineBox[{{14., 0.050495321166893065`}, {14., 
                 0.0027436183620680073`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {14., 0.050495321166893065`}], 
                  Offset[{-1.5, 0}, {14., 0.050495321166893065`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {14., 0.0027436183620680073`}], 
                  Offset[{-1.5, 0}, {14., 0.0027436183620680073`}]}]}, {
                LineBox[{{15., 0.025081677344148123`}, {
                 15., -0.00021838274401141805`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {15., 0.025081677344148123`}], 
                  Offset[{-1.5, 0}, {15., 0.025081677344148123`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {15., -0.00021838274401141805`}], 
                  Offset[{-1.5, 0}, {15., -0.00021838274401141805`}]}]}, {
                LineBox[{{16., 0.05907089615163734}, {16., 
                 0.028602144262254867`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {16., 0.05907089615163734}], 
                  Offset[{-1.5, 0}, {16., 0.05907089615163734}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {16., 0.028602144262254867`}], 
                  Offset[{-1.5, 0}, {16., 0.028602144262254867`}]}]}}},
             FontFamily->"Europa-Light",
             FontSize->18]}, {
            {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, {}}, {
            {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, {}}}, {{}, {}}}, {{{}, {}, 
           TagBox[
            {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
             LineBox[CompressedData["
1:eJwVj3s0lAkYxpmucsYOKYMxqzRy/7SnRSu9L4lGTRddhNFxGZo0U0subXJ8
w4aEbHJZt2VSaRUjt9KKtWLarG6mptpuumLXfMq4Fjv7x3OeP55zfuf3LAs9
5BtO09LS4mnyfy/OtfPV0qLgQOOjRL0oOZQxf3BXGlCwL/vvW+pIOdiU3XSU
cSgY0rYtfi6Qg8fFvV8Fb6KAHmne07BHDt+35fS05VPAFvTxD6MceodGvZLs
R2D/toE3Lgw5pHu2us4EfIQBn1GqX9YNM2oe53PjKBydX7+1bKwL+it23Bfe
mwRHkberddxNOKXiH16VPwMuCW9fDHA6YVEToUip0EauaZ0nUB1wi3k26ILN
XPQ0EL7f3vg7iDYzXx5Jn4+PZXPZbyra4WRl0h2asQ6WV+seSjNsA6Mzr0/k
lupiVvOGCefFrZC2k7vu/hgdxcKn5Tzf69BScrdW4M7AY2xnbUbGNZDGJ7o1
R+ljZkqMWGe6GbCsypFeYoARObS45JNNwHq0OaDtxWK03eEymLekESInRkg5
fQnWLfjglNNbD+O2jOf2u5bi1D50FyVfge+qL5Xn5xthlbedWdr2OlAZ+ATv
7mCi6qFLT7+XDPozg3dHLzBB4ENzzqEa8FbFc986mWKdcHQyMO8SDIYtPNyQ
xMIQ8403dRt+Bc8VRrS0DjP8aBI9tWWqChh/WWbLVGzcpH/p6XT8BaB3+lmZ
mppjVQTbKkZ1Dm7nsdJP1JvjC93ACk5hJQiyyosmNy7DAGPWu7HAs8DSC5Eb
DS3Dkri8b/kmUqDPkcaEJC9Hh7zaXiPtCjCTfL3W39ICa+86J3zp+gUWcvhN
vt0WeP3VTrO6llKwdzOujQ9agX7344W2VDFEPTf4w0eLg8WOPjeM2EUw/Clz
F7eQg+v3yXjxqYXgRXQVce0t8YzD6s5ZvQJo/eQ6Pd5riVXv4KMqJw/Edt88
uRe+EkXyhPoejzOwdljQ569jhcNBDAxRndb8Z/LoUiscEnnnHe/6CVaSGUc6
nK1RtMHttEVjDliHr2njPLHG1ohjw17rToHghvDHhigbnM4o3UDbkwU3yvsE
I0tsMbWHOBAceRI+Vc2OE822+M7u57it505AKKdap4hnh7HcZ6mGxulA2eQ6
XaHscPWacK4oNRWaK6dfqdPt8SJDed7D8jj4e1qgK9sBA+ZVz/vwKgVMxGnX
HNodUD/FLYAqSAbDRaI6nh+Be0reKwPjJSBdn3iU8ifQ1alPkRAtAcfE7PW5
fAJpHUuJUrEENlMyhTKEQJM3TPXrMAkcf6ieDBMR2HEltlOyTQJj0iSPoxIC
L7PprBlrCTx2zX1wvprAQjWDMf6MBGFsZQm3hkCXwfBn7o9JGKtpDP9HRuCX
crPprD4SDJYrx1c1aXxeulna3CbBZ6EZq7WdwM/EnFXRV0n4re+84IGCwFMT
tG7M1ex6V+3jlASGRrccLM8mQel9a4z5lMBH1bQQ7QwSRluG0ve+1PgK+yy6
SRLsKxwvDwwSeEd1gBl6UMN74h6X+S+Bt4sLFvXs1/AMdwBBEeh7NcbTOZyE
iLTYezFqAh2SFVn6fA2vPbXIaILA/mxpCelHQvJUQVjLFIGKP+tHKF8SGKsv
2gV90fhwajJDt5BQJm5Rz84SuPWCk1jBJeE/cgEz4g==
              "]]},
            Annotation[#, "Charting`Private`Tag$100791#1"]& ]}, {}}}, InsetBox[
         TemplateBox[{"1","2","3","4","5","6","7","8","9","10"},
          "SwatchLegend",
          DisplayFunction->(FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[0.237736, 0.340215, 0.575113]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                    "Grid"]}, {
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #7, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #8, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #9, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[0.72987, 0.239399, 0.230961]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #10}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                    "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxDividers -> {
                  "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             Background -> Automatic, StripOnInput -> False], 
            TraditionalForm]& ),
          Editable->True,
          InterpretationFunction:>(RowBox[{"SwatchLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.237736, 0.340215, 0.575113], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.15849066666666667`, 0.22681, 0.3834086666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.237736`", ",", "0.340215`", ",", "0.575113`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.237736, 0.340215, 0.575113]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.237736, 0.340215, 0.575113], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.16989874074074074`, 0.23571614814814817`, 
                    0.3592672592592593], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2548481111111111`", ",", 
                    "0.35357422222222223`", ",", "0.5389008888888889`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.18028985185185187`, 0.29003762962962965`, 
                    0.23978681481481484`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2704347777777778`", ",", 
                    "0.43505644444444447`", ",", "0.35968022222222223`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2220737777777778, 0.33548555555555554`, 
                    0.1743648888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.33311066666666667`", ",", 
                    "0.5032283333333333`", ",", "0.26154733333333335`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3393654814814815, 0.4051802222222222, 
                    0.1678728888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.5090482222222222`", ",", "0.6077703333333333`",
                     ",", "0.25180933333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4862688148148148, 0.48330874074074076`, 
                    0.1907017777777778], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7294032222222222`", ",", "0.7249631111111111`",
                     ",", "0.2860526666666667`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5708406666666667, 0.49519599999999997`, 
                    0.21272222222222223`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.8562609999999999`", ",", "0.742794`", ",", 
                    "0.31908333333333333`"}], "]"}], NumberMarks -> False]], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8562609999999999, 0.742794, 
                    0.31908333333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    Editable -> False, Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.5515110370370371, 0.37725540740740743`, 
                    0.20577814814814815`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.8272665555555555`", ",", "0.5658831111111111`",
                     ",", "0.3086672222222222`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4927234814814815, 0.1802878518518519, 
                    0.15934422222222222`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7390852222222222`", ",", "0.2704317777777778`",
                     ",", "0.23901633333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.72987, 0.239399, 0.230961], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.48658, 0.15959933333333334`, 0.153974], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.72987`", ",", "0.239399`", ",", "0.230961`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.72987, 0.239399, 0.230961]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.72987, 0.239399, 0.230961], Editable -> False, 
                    Selectable -> False]}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 
                 RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                   ",", #7, ",", #8, ",", #9, ",", #10}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "Automatic"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& )], 
         Scaled[{0.7, 0.8}], ImageScaled[{0.5, 0.5}],
         BaseStyle->{FontSize -> Larger},
         FormatType->StandardForm]},
       AspectRatio->1,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->GrayLevel[0],
       BaseStyle->{
        FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
         "Europa-Light", FontSize -> 18},
       DisplayFunction->Identity,
       Frame->{{True, False}, {True, False}},
       FrameLabel->{{
          FormBox[
          "\"p(going extinct at \
\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\
\")\\\",FontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm], None}, {
          FormBox[
          "\"transfer \
\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\"", 
           TraditionalForm], None}},
       FrameStyle->Directive[
         Thickness[Medium]],
       FrameTicks->{{{{0, 
            FormBox["0", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[1, 10], 0.1], 
            FormBox["0.1`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[1, 5], 0.2], 
            FormBox["0.2`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[3, 10], 0.3], 
            FormBox["0.3`", TraditionalForm], {0, 0.02}}}, None}, {{{0, 
            FormBox["0", TraditionalForm], {0, 0.02}}, {5, 
            FormBox["5", TraditionalForm], {0, 0.02}}, {10, 
            FormBox["10", TraditionalForm], {0, 0.02}}, {15, 
            FormBox["15", TraditionalForm], {0, 0.02}}, {20, 
            FormBox["20", TraditionalForm], {0, 0.02}}}, None}},
       FrameTicksStyle->GrayLevel[0],
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{65, 10}, {65, 10}},
       ImageSize->400,
       LabelStyle->{
         GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
       Method->{
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotLabel->FormBox["\"main experiment\"", TraditionalForm],
       PlotRange->{{0, 16.}, {0, 0.3181818181818182}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.05], 
          Scaled[0.05]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic},
       TicksStyle->GrayLevel[0]],
      InterpretTemplate[Legended[
        Graphics[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]], 
              
              Line[{{1., 0.19444444444444442`}, {2., 0.16666666666666666`}, {
               3., 0.1388888888888889}, {4., 0.1388888888888889}, {5., 
               0.05555555555555555}, {6., 0.}, {7., 0.1388888888888889}, {8., 
               0.027777777777777776`}, {9., 0.027777777777777776`}, {10., 
               0.}, {11., 0.05555555555555555}, {12., 0.}, {13., 
               0.027777777777777776`}, {14., 0.027777777777777776`}}]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
              
              Line[{{1., 0.3181818181818182}, {2., 0.09090909090909091}, {3., 
               0.022727272727272728`}, {4., 0.11363636363636365`}, {5., 
               0.045454545454545456`}, {6., 0.1590909090909091}, {7., 
               0.022727272727272728`}, {8., 0.06818181818181818}, {9., 
               0.045454545454545456`}, {10., 0.045454545454545456`}, {11., 
               0.022727272727272728`}, {12., 0.}, {13., 0.}, {14., 
               0.022727272727272728`}, {15., 0.022727272727272728`}}]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]], 
              
              Line[{{1., 0.12903225806451613`}, {2., 0.06451612903225806}, {
               3., 0.12903225806451613`}, {4., 0.0967741935483871}, {5., 
               0.0967741935483871}, {6., 0.}, {7., 0.1935483870967742}, {8., 
               0.06451612903225806}, {9., 0.0967741935483871}, {10., 0.}, {
               11., 0.03225806451612903}, {12., 0.03225806451612903}, {13., 
               0.}, {14., 0.03225806451612903}, {15., 0.}, {16., 
               0.03225806451612903}}]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]], 
              
              Line[{{1., 0.2}, {2., 0.12}, {3., 0.24}, {4., 0.08}, {5., 
               0.04}, {6., 0.08}, {7., 0.12}, {8., 0.}, {9., 0.04}, {10., 
               0.}, {11., 0.}, {12., 0.04}, {13., 0.04}}]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
              
              Line[{{1., 0.2878787878787879}, {2., 0.12121212121212122`}, {3.,
                0.09090909090909091}, {4., 0.09090909090909091}, {5., 
               0.015151515151515152`}, {6., 0.07575757575757576}, {7., 
               0.06060606060606061}, {8., 0.}, {9., 0.030303030303030304`}, {
               10., 0.030303030303030304`}, {11., 0.030303030303030304`}, {
               12., 0.015151515151515152`}, {13., 0.07575757575757576}, {14., 
               0.045454545454545456`}, {15., 0.030303030303030304`}}]}, {
              Hue[0.8503398874989481, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
              
              Line[{{1., 0.08333333333333333}, {2., 0.125}, {3., 
               0.08333333333333333}, {4., 0.16666666666666666`}, {5., 
               0.08333333333333333}, {6., 0.0625}, {7., 
               0.10416666666666666`}, {8., 0.0625}, {9., 
               0.020833333333333332`}, {10., 0.0625}, {11., 
               0.041666666666666664`}, {12., 0.}, {13., 
               0.020833333333333332`}, {14., 0.}, {15., 
               0.020833333333333332`}, {16., 0.0625}}]}, {
              Hue[0.08640786499873876, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
              Line[{{1., 0.2631578947368421}, {2., 0.14473684210526316`}, {3.,
                0.07894736842105263}, {4., 0.14473684210526316`}, {5., 0.}, {
               6., 0.09210526315789473}, {7., 0.039473684210526314`}, {8., 
               0.039473684210526314`}, {9., 0.02631578947368421}, {10., 
               0.02631578947368421}, {11., 0.039473684210526314`}, {12., 
               0.02631578947368421}, {13., 0.02631578947368421}, {14., 
               0.013157894736842105`}, {15., 0.013157894736842105`}, {16., 
               0.02631578947368421}}]}, {
              Hue[0.3224758424985268, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
              
              Line[{{1., 0.25}, {2., 0.1111111111111111}, {3., 
               0.19444444444444442`}, {4., 0.}, {5., 0.027777777777777776`}, {
               6., 0.08333333333333333}, {7., 0.027777777777777776`}, {8., 
               0.05555555555555555}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 
               0.05555555555555555}, {13., 0.1388888888888889}, {14., 0.}, {
               15., 0.}, {16., 0.05555555555555555}}]}, {
              Hue[0.5585438199983166, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
              
              Line[{{1., 0.3076923076923077}, {2., 0.3076923076923077}, {3., 
               0.}, {4., 0.}, {5., 0.}, {6., 0.07692307692307693}, {7., 0.}, {
               8., 0.07692307692307693}, {9., 0.07692307692307693}, {10., 
               0.}, {11., 0.07692307692307693}, {12., 0.}, {13., 0.}, {14., 
               0.07692307692307693}}]}, {
              Hue[0.7946117974981064, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]], 
              
              Line[{{1., 0.19148936170212766`}, {2., 0.0851063829787234}, {3.,
                0.14893617021276595`}, {4., 0.10638297872340426`}, {5., 
               0.0851063829787234}, {6., 0.0425531914893617}, {7., 
               0.02127659574468085}, {8., 0.1276595744680851}, {9., 0.}, {10.,
                0.02127659574468085}, {11., 0.}, {12., 0.0425531914893617}, {
               13., 0.06382978723404255}, {14., 0.02127659574468085}, {15., 
               0.}, {16., 0.0425531914893617}}]}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]]}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.72987, 0.239399, 
                0.230961]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.72987, 0.239399, 
                0.230961]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}}, {{}, {}}}, {{}, {{{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]], {
               
               Point[{{1., 0.2225210206034177}, {2., 0.1336950651707542}, {3.,
                 0.11272188270013653`}, {4., 0.09379950244780647}, {5., 
                0.044915330379983784`}, {6., 0.06722633497521514}, {7., 
                0.07284653337186481}, {8., 0.0522587616149098}, {9., 
                0.03643817468138351}, {10., 0.01858499609759408}, {11., 
                0.029890735090225752`}, {12., 0.021183411618624564`}, {13., 
                0.03934031524653025}, {14., 0.026619469764480538`}, {15., 
                0.012431647300068353`}, {16., 0.0438365202069461}}], {{
                 Line[{{1., 0.2995888401518842}, {1., 0.1454532010549512}}], 
                 Line[{
                   Offset[{1.5, 0}, {1., 0.2995888401518842}], 
                   Offset[{-1.5, 0}, {1., 0.2995888401518842}]}], 
                 Line[{
                   Offset[{1.5, 0}, {1., 0.1454532010549512}], 
                   Offset[{-1.5, 0}, {1., 0.1454532010549512}]}]}, {
                 
                 Line[{{2., 0.20151044397667134`}, {2., 
                  0.06587968636483703}}], 
                 Line[{
                   Offset[{1.5, 0}, {2., 0.20151044397667134`}], 
                   Offset[{-1.5, 0}, {2., 0.20151044397667134`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {2., 0.06587968636483703}], 
                   Offset[{-1.5, 0}, {2., 0.06587968636483703}]}]}, {
                 Line[{{3., 0.18607488507520437`}, {3., 0.0393688803250687}}], 
                 Line[{
                   Offset[{1.5, 0}, {3., 0.18607488507520437`}], 
                   Offset[{-1.5, 0}, {3., 0.18607488507520437`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {3., 0.0393688803250687}], 
                   Offset[{-1.5, 0}, {3., 0.0393688803250687}]}]}, {
                 
                 Line[{{4., 0.1498683656152737}, {4., 
                  0.037730639280339234`}}], 
                 Line[{
                   Offset[{1.5, 0}, {4., 0.1498683656152737}], 
                   Offset[{-1.5, 0}, {4., 0.1498683656152737}]}], 
                 Line[{
                   Offset[{1.5, 0}, {4., 0.037730639280339234`}], 
                   Offset[{-1.5, 0}, {4., 0.037730639280339234`}]}]}, {
                 
                 Line[{{5., 0.08008574910383512}, {5., 
                  0.009744911656132456}}], 
                 Line[{
                   Offset[{1.5, 0}, {5., 0.08008574910383512}], 
                   Offset[{-1.5, 0}, {5., 0.08008574910383512}]}], 
                 Line[{
                   Offset[{1.5, 0}, {5., 0.009744911656132456}], 
                   Offset[{-1.5, 0}, {5., 0.009744911656132456}]}]}, {
                 
                 Line[{{6., 0.11355527279203367`}, {6., 
                  0.020897397158396613`}}], 
                 Line[{
                   Offset[{1.5, 0}, {6., 0.11355527279203367`}], 
                   Offset[{-1.5, 0}, {6., 0.11355527279203367`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {6., 0.020897397158396613`}], 
                   Offset[{-1.5, 0}, {6., 0.020897397158396613`}]}]}, {
                 Line[{{7., 0.1360109709083695}, {7., 0.009682095835360102}}], 
                 Line[{
                   Offset[{1.5, 0}, {7., 0.1360109709083695}], 
                   Offset[{-1.5, 0}, {7., 0.1360109709083695}]}], 
                 Line[{
                   Offset[{1.5, 0}, {7., 0.009682095835360102}], 
                   Offset[{-1.5, 0}, {7., 0.009682095835360102}]}]}, {
                 
                 Line[{{8., 0.0903199444275024}, {8., 
                  0.014197578802317201`}}], 
                 Line[{
                   Offset[{1.5, 0}, {8., 0.0903199444275024}], 
                   Offset[{-1.5, 0}, {8., 0.0903199444275024}]}], 
                 Line[{
                   Offset[{1.5, 0}, {8., 0.014197578802317201`}], 
                   Offset[{-1.5, 0}, {8., 0.014197578802317201`}]}]}, {
                 
                 Line[{{9., 0.06714745919644413}, {9., 
                  0.005728890166322893}}], 
                 Line[{
                   Offset[{1.5, 0}, {9., 0.06714745919644413}], 
                   Offset[{-1.5, 0}, {9., 0.06714745919644413}]}], 
                 Line[{
                   Offset[{1.5, 0}, {9., 0.005728890166322893}], 
                   Offset[{-1.5, 0}, {9., 0.005728890166322893}]}]}, {
                 
                 Line[{{10., 0.04114807520842782}, {
                  10., -0.003978083013239663}}], 
                 Line[{
                   Offset[{1.5, 0}, {10., 0.04114807520842782}], 
                   Offset[{-1.5, 0}, {10., 0.04114807520842782}]}], 
                 Line[{
                   Offset[{1.5, 0}, {10., -0.003978083013239663}], 
                   Offset[{-1.5, 0}, {10., -0.003978083013239663}]}]}, {
                 
                 Line[{{11., 0.05536116942717571}, {11., 
                  0.0044203007532757944`}}], 
                 Line[{
                   Offset[{1.5, 0}, {11., 0.05536116942717571}], 
                   Offset[{-1.5, 0}, {11., 0.05536116942717571}]}], 
                 Line[{
                   Offset[{1.5, 0}, {11., 0.0044203007532757944`}], 
                   Offset[{-1.5, 0}, {11., 0.0044203007532757944`}]}]}, {
                 
                 Line[{{12., 0.042192659567279425`}, {12., 
                  0.00017416366996970273`}}], 
                 Line[{
                   Offset[{1.5, 0}, {12., 0.042192659567279425`}], 
                   Offset[{-1.5, 0}, {12., 0.042192659567279425`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {12., 0.00017416366996970273`}], 
                   Offset[{-1.5, 0}, {12., 0.00017416366996970273`}]}]}, {
                 
                 Line[{{13., 0.08296131545731933}, {
                  13., -0.0042806849642588254`}}], 
                 Line[{
                   Offset[{1.5, 0}, {13., 0.08296131545731933}], 
                   Offset[{-1.5, 0}, {13., 0.08296131545731933}]}], 
                 Line[{
                   Offset[{1.5, 0}, {13., -0.0042806849642588254`}], 
                   Offset[{-1.5, 0}, {13., -0.0042806849642588254`}]}]}, {
                 
                 Line[{{14., 0.050495321166893065`}, {14., 
                  0.0027436183620680073`}}], 
                 Line[{
                   Offset[{1.5, 0}, {14., 0.050495321166893065`}], 
                   Offset[{-1.5, 0}, {14., 0.050495321166893065`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {14., 0.0027436183620680073`}], 
                   Offset[{-1.5, 0}, {14., 0.0027436183620680073`}]}]}, {
                 
                 Line[{{15., 0.025081677344148123`}, {
                  15., -0.00021838274401141805`}}], 
                 Line[{
                   Offset[{1.5, 0}, {15., 0.025081677344148123`}], 
                   Offset[{-1.5, 0}, {15., 0.025081677344148123`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {15., -0.00021838274401141805`}], 
                   Offset[{-1.5, 0}, {15., -0.00021838274401141805`}]}]}, {
                 
                 Line[{{16., 0.05907089615163734}, {16., 
                  0.028602144262254867`}}], 
                 Line[{
                   Offset[{1.5, 0}, {16., 0.05907089615163734}], 
                   Offset[{-1.5, 0}, {16., 0.05907089615163734}]}], 
                 Line[{
                   Offset[{1.5, 0}, {16., 0.028602144262254867`}], 
                   Offset[{-1.5, 0}, {16., 0.028602144262254867`}]}]}}}}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]]}, {}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]]}, {}}}, {{}, {}}}, {{{{}, {}, 
             Annotation[{
               Directive[
                Opacity[1.], 
                AbsoluteThickness[1.6], 
                GrayLevel[0]], 
               Line[CompressedData["
1:eJwVj3s0lAkYxpmucsYOKYMxqzRy/7SnRSu9L4lGTRddhNFxGZo0U0subXJ8
w4aEbHJZt2VSaRUjt9KKtWLarG6mptpuumLXfMq4Fjv7x3OeP55zfuf3LAs9
5BtO09LS4mnyfy/OtfPV0qLgQOOjRL0oOZQxf3BXGlCwL/vvW+pIOdiU3XSU
cSgY0rYtfi6Qg8fFvV8Fb6KAHmne07BHDt+35fS05VPAFvTxD6MceodGvZLs
R2D/toE3Lgw5pHu2us4EfIQBn1GqX9YNM2oe53PjKBydX7+1bKwL+it23Bfe
mwRHkberddxNOKXiH16VPwMuCW9fDHA6YVEToUip0EauaZ0nUB1wi3k26ILN
XPQ0EL7f3vg7iDYzXx5Jn4+PZXPZbyra4WRl0h2asQ6WV+seSjNsA6Mzr0/k
lupiVvOGCefFrZC2k7vu/hgdxcKn5Tzf69BScrdW4M7AY2xnbUbGNZDGJ7o1
R+ljZkqMWGe6GbCsypFeYoARObS45JNNwHq0OaDtxWK03eEymLekESInRkg5
fQnWLfjglNNbD+O2jOf2u5bi1D50FyVfge+qL5Xn5xthlbedWdr2OlAZ+ATv
7mCi6qFLT7+XDPozg3dHLzBB4ENzzqEa8FbFc986mWKdcHQyMO8SDIYtPNyQ
xMIQ8403dRt+Bc8VRrS0DjP8aBI9tWWqChh/WWbLVGzcpH/p6XT8BaB3+lmZ
mppjVQTbKkZ1Dm7nsdJP1JvjC93ACk5hJQiyyosmNy7DAGPWu7HAs8DSC5Eb
DS3Dkri8b/kmUqDPkcaEJC9Hh7zaXiPtCjCTfL3W39ICa+86J3zp+gUWcvhN
vt0WeP3VTrO6llKwdzOujQ9agX7344W2VDFEPTf4w0eLg8WOPjeM2EUw/Clz
F7eQg+v3yXjxqYXgRXQVce0t8YzD6s5ZvQJo/eQ6Pd5riVXv4KMqJw/Edt88
uRe+EkXyhPoejzOwdljQ569jhcNBDAxRndb8Z/LoUiscEnnnHe/6CVaSGUc6
nK1RtMHttEVjDliHr2njPLHG1ohjw17rToHghvDHhigbnM4o3UDbkwU3yvsE
I0tsMbWHOBAceRI+Vc2OE822+M7u57it505AKKdap4hnh7HcZ6mGxulA2eQ6
XaHscPWacK4oNRWaK6dfqdPt8SJDed7D8jj4e1qgK9sBA+ZVz/vwKgVMxGnX
HNodUD/FLYAqSAbDRaI6nh+Be0reKwPjJSBdn3iU8ifQ1alPkRAtAcfE7PW5
fAJpHUuJUrEENlMyhTKEQJM3TPXrMAkcf6ieDBMR2HEltlOyTQJj0iSPoxIC
L7PprBlrCTx2zX1wvprAQjWDMf6MBGFsZQm3hkCXwfBn7o9JGKtpDP9HRuCX
crPprD4SDJYrx1c1aXxeulna3CbBZ6EZq7WdwM/EnFXRV0n4re+84IGCwFMT
tG7M1ex6V+3jlASGRrccLM8mQel9a4z5lMBH1bQQ7QwSRluG0ve+1PgK+yy6
SRLsKxwvDwwSeEd1gBl6UMN74h6X+S+Bt4sLFvXs1/AMdwBBEeh7NcbTOZyE
iLTYezFqAh2SFVn6fA2vPbXIaILA/mxpCelHQvJUQVjLFIGKP+tHKF8SGKsv
2gV90fhwajJDt5BQJm5Rz84SuPWCk1jBJeE/cgEz4g==
                "]]}, "Charting`Private`Tag$100791#1"]}}, {}}}, {
         AspectRatio -> 1, DisplayFunction -> Identity, DisplayFunction -> 
          Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> 
          GrayLevel[0], 
          BaseStyle -> {
           FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
            "Europa-Light", FontSize -> 18}, DisplayFunction :> Identity, 
          Frame -> {{True, False}, {True, False}}, 
          FrameLabel -> {{
            "p(going extinct at \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)", None}, {
            "transfer \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)", None}}, 
          FrameStyle -> Directive[
            Thickness[Medium]], FrameTicks -> {{{{0, 0, {0, 0.02}}, {
               Rational[1, 10], 0.1, {0, 0.02}}, {
               Rational[1, 5], 0.2, {0, 0.02}}, {
               Rational[3, 10], 0.3, {0, 0.02}}}, 
             None}, {{{0, 0, {0, 0.02}}, {5, 5, {0, 0.02}}, {
              10, 10, {0, 0.02}}, {15, 15, {0, 0.02}}, {20, 20, {0, 0.02}}}, 
             None}}, FrameTicksStyle -> GrayLevel[0], 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImagePadding -> {{65, 10}, {65, 10}}, 
          ImageSize -> 400, LabelStyle -> {
            GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
          Method -> {
           "OptimizePlotMarkers" -> True, 
            "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& )}}, PlotLabel -> "main experiment", 
          PlotRange -> {{0, 16.}, {0, 0.3181818181818182}}, PlotRangeClipping -> 
          True, PlotRangePadding -> {{
             Scaled[0.05], 
             Scaled[0.05]}, {
             Scaled[0.05], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}, TicksStyle -> 
          GrayLevel[0]}], 
        Placed[
         Unevaluated[
          SwatchLegend[{
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.237736, 0.340215, 0.575113]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.72987, 0.239399, 0.230961]]}, {1, 2, 3, 4, 5, 6, 7, 8,
            9, 10}, LegendMarkers -> Automatic, LabelStyle -> {
             GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
           LegendLayout -> {"Row", 2}]], 
         Scaled[{0.7, 0.8}], Identity]]& ],
      AutoDelete->True,
      Editable->True,
      SelectWithContents->False,
      Selectable->True], 
     TagBox[
      GraphicsBox[{{{{}, {{{}, {}, 
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.23076923076923075`}, {2., 
               0.07692307692307693}, {3., 0.07692307692307693}, {4., 
               0.15384615384615385`}, {5., 0.05128205128205128}, {6., 0.}, {
               7., 0.02564102564102564}, {8., 0.}, {9., 0.}, {10., 
               0.05128205128205128}, {11., 0.05128205128205128}, {12., 
               0.02564102564102564}, {13., 0.07692307692307693}, {14., 
               0.15384615384615385`}, {15., 0.02564102564102564}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.21428571428571427`}, {2., 
               0.19047619047619047`}, {3., 0.16666666666666666`}, {4., 
               0.11904761904761904`}, {5., 0.}, {6., 0.}, {7., 
               0.023809523809523808`}, {8., 0.047619047619047616`}, {9., 
               0.}, {10., 0.023809523809523808`}, {11., 0.}, {12., 0.}, {13., 
               0.}, {14., 0.14285714285714285`}, {15., 
               0.047619047619047616`}, {16., 0.023809523809523808`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.11627906976744186`}, {2., 0.}, {3., 
               0.09302325581395349}, {4., 0.046511627906976744`}, {5., 
               0.41860465116279066`}, {6., 0.}, {7., 0.046511627906976744`}, {
               8., 0.046511627906976744`}, {9., 0.046511627906976744`}, {10., 
               0.046511627906976744`}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 
               0.046511627906976744`}, {15., 0.046511627906976744`}, {16., 
               0.046511627906976744`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.17073170731707318`}, {2., 
               0.17073170731707318`}, {3., 0.12195121951219512`}, {4., 
               0.12195121951219512`}, {5., 0.04878048780487805}, {6., 
               0.0975609756097561}, {7., 0.07317073170731708}, {8., 
               0.04878048780487805}, {9., 0.024390243902439025`}, {10., 0.}, {
               11., 0.024390243902439025`}, {12., 0.024390243902439025`}, {
               13., 0.024390243902439025`}, {14., 0.024390243902439025`}, {
               15., 0.}, {16., 0.024390243902439025`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.18367346938775508`}, {2., 0.2040816326530612}, {
               3., 0.3061224489795918}, {4., 0.02040816326530612}, {5., 
               0.08163265306122448}, {6., 0.061224489795918366`}, {7., 
               0.02040816326530612}, {8., 0.061224489795918366`}, {9., 0.}, {
               10., 0.}, {11., 0.}, {12., 0.04081632653061224}, {13., 0.}, {
               14., 0.}, {15., 0.02040816326530612}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.12727272727272726`}, {2., 
               0.19999999999999998`}, {3., 0.2909090909090909}, {4., 
               0.03636363636363636}, {5., 0.05454545454545454}, {6., 
               0.12727272727272726`}, {7., 0.01818181818181818}, {8., 0.}, {
               9., 0.}, {10., 0.03636363636363636}, {11., 0.}, {12., 
               0.03636363636363636}, {13., 0.}, {14., 0.}, {15., 
               0.07272727272727272}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2535211267605634}, {2., 0.1971830985915493}, {
               3., 0.11267605633802817`}, {4., 0.04225352112676056}, {5., 
               0.09859154929577466}, {6., 0.014084507042253521`}, {7., 0.}, {
               8., 0.014084507042253521`}, {9., 0.028169014084507043`}, {10., 
               0.056338028169014086`}, {11., 0.}, {12., 
               0.014084507042253521`}, {13., 0.056338028169014086`}, {14., 
               0.056338028169014086`}, {15., 0.056338028169014086`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.29411764705882354`}, {2., 0.2647058823529412}, {
               3., 0.029411764705882353`}, {4., 0.029411764705882353`}, {5., 
               0.029411764705882353`}, {6., 0.029411764705882353`}, {7., 
               0.029411764705882353`}, {8., 0.08823529411764705}, {9., 
               0.029411764705882353`}, {10., 0.058823529411764705`}, {11., 
               0.}, {12., 0.}, {13., 0.029411764705882353`}, {14., 0.}, {15., 
               0.08823529411764705}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.11764705882352941`}, {2., 0.1764705882352941}, {
               3., 0.11764705882352941`}, {4., 0.}, {5., 
               0.058823529411764705`}, {6., 0.}, {7., 0.}, {8., 
               0.11764705882352941`}, {9., 0.058823529411764705`}, {10., 
               0.}, {11., 0.}, {12., 0.}, {13., 0.058823529411764705`}, {14., 
               0.23529411764705882`}, {15., 0.058823529411764705`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.125}, {2., 0.125}, {3., 0.15000000000000002`}, {
               4., 0.125}, {5., 0.025}, {6., 0.05}, {7., 0.025}, {8., 0.05}, {
               9., 0.05}, {10., 0.}, {11., 0.025}, {12., 0.025}, {13., 
               0.125}, {14., 0.07500000000000001}, {15., 0.}, {16., 0.025}}],
              FontFamily->"Europa-Light",
              FontSize->18]}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              
              FontSize->
               18]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              
              FontSize->
               18]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{}, {
           {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
            
            StyleBox[{
              PointBox[{{1., 0.1833297751442859}, {2., 
               0.16055721765491865`}, {3., 0.1465330638672015}, {4., 
               0.06947937057745303}, {5., 0.08666721412698207}, {6., 
               0.03795544644265376}, {7., 0.026213465521784995`}, {8., 
               0.04741025131102508}, {9., 0.023730618001156983`}, {10., 
               0.0273128396942967}, {11., 0.01006722951844903}, {12., 
               0.01662957394799668}, {13., 0.03708866431121771}, {14., 
               0.07342373143287854}, {15., 0.04163039888580546}, {16., 
               0.02992784890473489}}], {{
                LineBox[{{1., 0.2465077878114625}, {1., 
                 0.12015176247710928`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {1., 0.2465077878114625}], 
                  Offset[{-1.5, 0}, {1., 0.2465077878114625}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {1., 0.12015176247710928`}], 
                  Offset[{-1.5, 0}, {1., 0.12015176247710928`}]}]}, {
                LineBox[{{2., 0.23578133701021048`}, {2., 
                 0.08533309829962682}}], 
                LineBox[{
                 Offset[{1.5, 0}, {2., 0.23578133701021048`}], 
                  Offset[{-1.5, 0}, {2., 0.23578133701021048`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {2., 0.08533309829962682}], 
                  Offset[{-1.5, 0}, {2., 0.08533309829962682}]}]}, {
                LineBox[{{3., 0.23519083566940596`}, {3., 
                 0.057875292064997017`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {3., 0.23519083566940596`}], 
                  Offset[{-1.5, 0}, {3., 0.23519083566940596`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {3., 0.057875292064997017`}], 
                  Offset[{-1.5, 0}, {3., 0.057875292064997017`}]}]}, {
                LineBox[{{4., 0.12386155300986951`}, {4., 
                 0.015097188145036557`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {4., 0.12386155300986951`}], 
                  Offset[{-1.5, 0}, {4., 0.12386155300986951`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {4., 0.015097188145036557`}], 
                  Offset[{-1.5, 0}, {4., 0.015097188145036557`}]}]}, {
                LineBox[{{5., 0.20659164795904772`}, {
                 5., -0.03325721970508358}}], 
                LineBox[{
                 Offset[{1.5, 0}, {5., 0.20659164795904772`}], 
                  Offset[{-1.5, 0}, {5., 0.20659164795904772`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {5., -0.03325721970508358}], 
                  Offset[{-1.5, 0}, {5., -0.03325721970508358}]}]}, {
                LineBox[{{6., 0.08344316800360768}, {
                 6., -0.007532275118300159}}], 
                LineBox[{
                 Offset[{1.5, 0}, {6., 0.08344316800360768}], 
                  Offset[{-1.5, 0}, {6., 0.08344316800360768}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {6., -0.007532275118300159}], 
                  Offset[{-1.5, 0}, {6., -0.007532275118300159}]}]}, {
                LineBox[{{7., 0.04757622888303116}, {7., 
                 0.004850702160538827}}], 
                LineBox[{
                 Offset[{1.5, 0}, {7., 0.04757622888303116}], 
                  Offset[{-1.5, 0}, {7., 0.04757622888303116}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {7., 0.004850702160538827}], 
                  Offset[{-1.5, 0}, {7., 0.004850702160538827}]}]}, {
                LineBox[{{8., 0.08453800521664573}, {8., 
                 0.01028249740540444}}], 
                LineBox[{
                 Offset[{1.5, 0}, {8., 0.08453800521664573}], 
                  Offset[{-1.5, 0}, {8., 0.08453800521664573}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {8., 0.01028249740540444}], 
                  Offset[{-1.5, 0}, {8., 0.01028249740540444}]}]}, {
                LineBox[{{9., 0.0466932593781445}, {9., 
                 0.0007679766241694662}}], 
                LineBox[{
                 Offset[{1.5, 0}, {9., 0.0466932593781445}], 
                  Offset[{-1.5, 0}, {9., 0.0466932593781445}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {9., 0.0007679766241694662}], 
                  Offset[{-1.5, 0}, {9., 0.0007679766241694662}]}]}, {
                LineBox[{{10., 0.05282243853395122}, {10., 
                 0.001803240854642174}}], 
                LineBox[{
                 Offset[{1.5, 0}, {10., 0.05282243853395122}], 
                  Offset[{-1.5, 0}, {10., 0.05282243853395122}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {10., 0.001803240854642174}], 
                  Offset[{-1.5, 0}, {10., 0.001803240854642174}]}]}, {
                LineBox[{{11., 0.027819355148744333`}, {
                 11., -0.007684896111846272}}], 
                LineBox[{
                 Offset[{1.5, 0}, {11., 0.027819355148744333`}], 
                  Offset[{-1.5, 0}, {11., 0.027819355148744333`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {11., -0.007684896111846272}], 
                  Offset[{-1.5, 0}, {11., -0.007684896111846272}]}]}, {
                LineBox[{{12., 0.03261073923817821}, {12., 
                 0.0006484086578151492}}], 
                LineBox[{
                 Offset[{1.5, 0}, {12., 0.03261073923817821}], 
                  Offset[{-1.5, 0}, {12., 0.03261073923817821}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {12., 0.0006484086578151492}], 
                  Offset[{-1.5, 0}, {12., 0.0006484086578151492}]}]}, {
                LineBox[{{13., 0.07909473065959133}, {
                 13., -0.004917402037155898}}], 
                LineBox[{
                 Offset[{1.5, 0}, {13., 0.07909473065959133}], 
                  Offset[{-1.5, 0}, {13., 0.07909473065959133}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {13., -0.004917402037155898}], 
                  Offset[{-1.5, 0}, {13., -0.004917402037155898}]}]}, {
                LineBox[{{14., 0.15306659376825388`}, {
                 14., -0.006219130902496775}}], 
                LineBox[{
                 Offset[{1.5, 0}, {14., 0.15306659376825388`}], 
                  Offset[{-1.5, 0}, {14., 0.15306659376825388`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {14., -0.006219130902496775}], 
                  Offset[{-1.5, 0}, {14., -0.006219130902496775}]}]}, {
                LineBox[{{15., 0.07122556326818526}, {15., 
                 0.012035234503425671`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {15., 0.07122556326818526}], 
                  Offset[{-1.5, 0}, {15., 0.07122556326818526}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {15., 0.012035234503425671`}], 
                  Offset[{-1.5, 0}, {15., 0.012035234503425671`}]}]}, {
                LineBox[{{16., 0.040994380911273595`}, {16., 
                 0.018861316898196187`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {16., 0.040994380911273595`}], 
                  Offset[{-1.5, 0}, {16., 0.040994380911273595`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {16., 0.018861316898196187`}], 
                  Offset[{-1.5, 0}, {16., 0.018861316898196187`}]}]}}},
             FontFamily->"Europa-Light",
             FontSize->18]}, {
            {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, {}}, {
            {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, {}}}, {{}, {}}}, {{{}, {}, 
           TagBox[
            {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
             LineBox[CompressedData["
1:eJwVj30w1Hkcx1HTeUikhxWLpFWL9aWRq9R+PiJZh0xdnPKYJXVMiVKu0m/J
IkltpB15yokkT7ElrChLhwppuRmV0g0q65b10NPt/fGe97zn/Z7XzNv0wJHd
oWoqKioeSv3vywRWu1VUZHBFJ4X7qFMCufqnHKV6MpB2uCi+tUnAIveJTSVD
2XN3fXJ4JIHtpQE6Qb/IwHvzPxoNtRI4Ks7oFGfJYGhELO/MlUD3+JRLPGsS
XOVdbNsoCSQ7Nzp83/cvrAkM8VOlSeD7tAfja+0UDIXJXMvD2mC4YE9P+Is5
cPn8tMB+/jFcmvCLts36DiYpx1Sl9a2gWUdeJhSoYpew3IRcbYEO/Zv+tywW
4nSjf9DUwUcQ4a7/5mTyIhx/L+9/G9QMF4rin6mt0sDLTu3czNtNQLv6LkVw
QwunWz4YHGxqAP6vHHaPQhv3P7kgW6fzEOpznldwHXVRsWmAaP32AApjz2wT
RS1FrXyjvc6vRIC5JTbaOXoY9/6o2qaYOqC/ct8nfr0MF89GWnhp1sLh2clz
7dor8PltkaZdVw3MWOoOsfauxA+mZzsTU6thS9md/KwsGuoVb7V7EFwFE3pu
Qd4t+mhbEZFe7l8Jw2lB3sd+MsD2qkNvMkrvws6JWM6IvSHyHib2eQ/cgbEQ
9eh78XQc9nzGc1QtA+e1NDV+ixHuSGUvNNtVCrpd5umVE8Y4enHUpaXnFmg/
9llvaLganTLOaqbuKoa/MunJKTXKXGW70uFrEXAv5gvnXE2xaVBEmK03gb4k
uJ02boo67A2NJomFoL2gMCaYtwaZ1poDVyIKwIgy2eprboZtcZd7WV75oM7w
q9stMUOXuf4odmYusLatqoj1X4vnru0sHnmaA1FDeq1uKgykxudCjWeF8Fme
tpeTzcA/F2drGQReBxfSJuSwzDEgmLanbOQaNModvsx0m2OierHFO24WRFpt
GHwRug6zU9gbG5ZlwtbP3D5fjfV42M4wSdggUP7X99AuXI9d2DH58dIVWHcu
9WTLz0yUp3sPJcZdBmboZjFjkIme+zQ9RwIzgNsUnngvygJTrAJb45+nQ1N+
H3dyhSUK6nbEiqVpIC/5MUNElmgw5brltMYFOMAo0xB6WGFLJttAEJ0CMguB
fbXMCnMcY+vc+/kgKvrydjqZhVaWtCPMiCTwdTZDB2Nr7Bl0dVtgfB4MIvkP
rJutEQbHOFEdCbBcM6LKw4cgreJZwaI8HhQ6nYmT+RI80PdqaP46D2zOpDsJ
/Ah6mYydkl3lgbus8qU0mODK/qr216k8ON8/PRcSQdBmY0xT9wkeKArjt8dR
BCtN3O9/8uTBgIOgt7iMYOvpem+WCg/CjxflcO4SNPSxznP/QoHibm3ox0qC
QV5qWyIVFOitkc7Y1hEMl+8Prf5IgZu6Eb2xmeCNmr5k9wEKGvqKub0vCUap
m9WIq5X9kvusE1KC3cO9Cnk5BdKdHQr9vwkKAzbymaUUTNWPJwe8IXhcVJCW
nUcBq8CmfHSMYHQFZ3VSmpI36Hgi7RNB67IS8WO+krd8DxAZwdmHoyULEygI
4x9/ETNN0LPojk/yKSWvOUlIm1Xuv/5B74yhgDd/LaR+nuD9Q+3MpUcp0LUr
tfL/RvDs6KZ4n98pyI2sn/7xg6B9Rgw9L4yC/wApqj5X
              "]]},
            Annotation[#, "Charting`Private`Tag$101237#1"]& ]}, {}}}, InsetBox[
         TemplateBox[{"1","2","3","4","5","6","7","8","9","10"},
          "SwatchLegend",
          DisplayFunction->(FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[0.237736, 0.340215, 0.575113]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                    "Grid"]}, {
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #7, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #8, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #9, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[0.72987, 0.239399, 0.230961]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #10}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                    "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxDividers -> {
                  "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             Background -> Automatic, StripOnInput -> False], 
            TraditionalForm]& ),
          Editable->True,
          InterpretationFunction:>(RowBox[{"SwatchLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.237736, 0.340215, 0.575113], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.15849066666666667`, 0.22681, 0.3834086666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.237736`", ",", "0.340215`", ",", "0.575113`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.237736, 0.340215, 0.575113]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.237736, 0.340215, 0.575113], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.16989874074074074`, 0.23571614814814817`, 
                    0.3592672592592593], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2548481111111111`", ",", 
                    "0.35357422222222223`", ",", "0.5389008888888889`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.18028985185185187`, 0.29003762962962965`, 
                    0.23978681481481484`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2704347777777778`", ",", 
                    "0.43505644444444447`", ",", "0.35968022222222223`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2220737777777778, 0.33548555555555554`, 
                    0.1743648888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.33311066666666667`", ",", 
                    "0.5032283333333333`", ",", "0.26154733333333335`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3393654814814815, 0.4051802222222222, 
                    0.1678728888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.5090482222222222`", ",", "0.6077703333333333`",
                     ",", "0.25180933333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4862688148148148, 0.48330874074074076`, 
                    0.1907017777777778], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7294032222222222`", ",", "0.7249631111111111`",
                     ",", "0.2860526666666667`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5708406666666667, 0.49519599999999997`, 
                    0.21272222222222223`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.8562609999999999`", ",", "0.742794`", ",", 
                    "0.31908333333333333`"}], "]"}], NumberMarks -> False]], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8562609999999999, 0.742794, 
                    0.31908333333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    Editable -> False, Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5515110370370371, 0.37725540740740743`, 
                    0.20577814814814815`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.8272665555555555`", ",", "0.5658831111111111`",
                     ",", "0.3086672222222222`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4927234814814815, 0.1802878518518519, 
                    0.15934422222222222`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7390852222222222`", ",", "0.2704317777777778`",
                     ",", "0.23901633333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.72987, 0.239399, 0.230961], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.48658, 0.15959933333333334`, 0.153974], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.72987`", ",", "0.239399`", ",", "0.230961`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.72987, 0.239399, 0.230961]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.72987, 0.239399, 0.230961], Editable -> False, 
                    Selectable -> False]}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 
                 RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                   ",", #7, ",", #8, ",", #9, ",", #10}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "Automatic"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& )], 
         Scaled[{0.7, 0.8}], ImageScaled[{0.5, 0.5}],
         BaseStyle->{FontSize -> Larger},
         FormatType->StandardForm]},
       AspectRatio->1,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->GrayLevel[0],
       BaseStyle->{
        FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
         "Europa-Light", FontSize -> 18},
       DisplayFunction->Identity,
       Frame->{{True, False}, {True, False}},
       FrameLabel->{{
          FormBox[
          "\"p(going extinct at \
\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\
\")\\\",FontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm], None}, {
          FormBox[
          "\"transfer \
\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\"", 
           TraditionalForm], None}},
       FrameStyle->Directive[
         Thickness[Medium]],
       FrameTicks->{{{{0, 
            FormBox["0", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[1, 10], 0.1], 
            FormBox["0.1`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[1, 5], 0.2], 
            FormBox["0.2`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[3, 10], 0.3], 
            FormBox["0.3`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[2, 5], 0.4], 
            FormBox["0.4`", TraditionalForm], {0, 0.02}}}, None}, {{{0, 
            FormBox["0", TraditionalForm], {0, 0.02}}, {5, 
            FormBox["5", TraditionalForm], {0, 0.02}}, {10, 
            FormBox["10", TraditionalForm], {0, 0.02}}, {15, 
            FormBox["15", TraditionalForm], {0, 0.02}}, {20, 
            FormBox["20", TraditionalForm], {0, 0.02}}}, None}},
       FrameTicksStyle->GrayLevel[0],
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{65, 10}, {65, 10}},
       ImageSize->400,
       LabelStyle->{
         GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
       Method->{
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotLabel->FormBox["\"repetitions\"", TraditionalForm],
       PlotRange->{{0, 16.}, {0, 0.41860465116279066`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.05], 
          Scaled[0.05]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic},
       TicksStyle->GrayLevel[0]],
      InterpretTemplate[Legended[
        Graphics[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]], 
              
              Line[{{1., 0.23076923076923075`}, {2., 0.07692307692307693}, {
               3., 0.07692307692307693}, {4., 0.15384615384615385`}, {5., 
               0.05128205128205128}, {6., 0.}, {7., 0.02564102564102564}, {8.,
                0.}, {9., 0.}, {10., 0.05128205128205128}, {11., 
               0.05128205128205128}, {12., 0.02564102564102564}, {13., 
               0.07692307692307693}, {14., 0.15384615384615385`}, {15., 
               0.02564102564102564}}]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
              
              Line[{{1., 0.21428571428571427`}, {2., 0.19047619047619047`}, {
               3., 0.16666666666666666`}, {4., 0.11904761904761904`}, {5., 
               0.}, {6., 0.}, {7., 0.023809523809523808`}, {8., 
               0.047619047619047616`}, {9., 0.}, {10., 
               0.023809523809523808`}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 
               0.14285714285714285`}, {15., 0.047619047619047616`}, {16., 
               0.023809523809523808`}}]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]], 
              
              Line[{{1., 0.11627906976744186`}, {2., 0.}, {3., 
               0.09302325581395349}, {4., 0.046511627906976744`}, {5., 
               0.41860465116279066`}, {6., 0.}, {7., 0.046511627906976744`}, {
               8., 0.046511627906976744`}, {9., 0.046511627906976744`}, {10., 
               0.046511627906976744`}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 
               0.046511627906976744`}, {15., 0.046511627906976744`}, {16., 
               0.046511627906976744`}}]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]], 
              
              Line[{{1., 0.17073170731707318`}, {2., 0.17073170731707318`}, {
               3., 0.12195121951219512`}, {4., 0.12195121951219512`}, {5., 
               0.04878048780487805}, {6., 0.0975609756097561}, {7., 
               0.07317073170731708}, {8., 0.04878048780487805}, {9., 
               0.024390243902439025`}, {10., 0.}, {11., 
               0.024390243902439025`}, {12., 0.024390243902439025`}, {13., 
               0.024390243902439025`}, {14., 0.024390243902439025`}, {15., 
               0.}, {16., 0.024390243902439025`}}]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
              
              Line[{{1., 0.18367346938775508`}, {2., 0.2040816326530612}, {3.,
                0.3061224489795918}, {4., 0.02040816326530612}, {5., 
               0.08163265306122448}, {6., 0.061224489795918366`}, {7., 
               0.02040816326530612}, {8., 0.061224489795918366`}, {9., 0.}, {
               10., 0.}, {11., 0.}, {12., 0.04081632653061224}, {13., 0.}, {
               14., 0.}, {15., 0.02040816326530612}}]}, {
              Hue[0.8503398874989481, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
              
              Line[{{1., 0.12727272727272726`}, {2., 0.19999999999999998`}, {
               3., 0.2909090909090909}, {4., 0.03636363636363636}, {5., 
               0.05454545454545454}, {6., 0.12727272727272726`}, {7., 
               0.01818181818181818}, {8., 0.}, {9., 0.}, {10., 
               0.03636363636363636}, {11., 0.}, {12., 0.03636363636363636}, {
               13., 0.}, {14., 0.}, {15., 0.07272727272727272}}]}, {
              Hue[0.08640786499873876, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
              
              Line[{{1., 0.2535211267605634}, {2., 0.1971830985915493}, {3., 
               0.11267605633802817`}, {4., 0.04225352112676056}, {5., 
               0.09859154929577466}, {6., 0.014084507042253521`}, {7., 0.}, {
               8., 0.014084507042253521`}, {9., 0.028169014084507043`}, {10., 
               0.056338028169014086`}, {11., 0.}, {12., 
               0.014084507042253521`}, {13., 0.056338028169014086`}, {14., 
               0.056338028169014086`}, {15., 0.056338028169014086`}}]}, {
              Hue[0.3224758424985268, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
              
              Line[{{1., 0.29411764705882354`}, {2., 0.2647058823529412}, {3.,
                0.029411764705882353`}, {4., 0.029411764705882353`}, {5., 
               0.029411764705882353`}, {6., 0.029411764705882353`}, {7., 
               0.029411764705882353`}, {8., 0.08823529411764705}, {9., 
               0.029411764705882353`}, {10., 0.058823529411764705`}, {11., 
               0.}, {12., 0.}, {13., 0.029411764705882353`}, {14., 0.}, {15., 
               0.08823529411764705}}]}, {
              Hue[0.5585438199983166, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
              
              Line[{{1., 0.11764705882352941`}, {2., 0.1764705882352941}, {3.,
                0.11764705882352941`}, {4., 0.}, {5., 
               0.058823529411764705`}, {6., 0.}, {7., 0.}, {8., 
               0.11764705882352941`}, {9., 0.058823529411764705`}, {10., 
               0.}, {11., 0.}, {12., 0.}, {13., 0.058823529411764705`}, {14., 
               0.23529411764705882`}, {15., 0.058823529411764705`}}]}, {
              Hue[0.7946117974981064, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]], 
              
              Line[{{1., 0.125}, {2., 0.125}, {3., 0.15000000000000002`}, {4.,
                0.125}, {5., 0.025}, {6., 0.05}, {7., 0.025}, {8., 0.05}, {9.,
                0.05}, {10., 0.}, {11., 0.025}, {12., 0.025}, {13., 0.125}, {
               14., 0.07500000000000001}, {15., 0.}, {16., 0.025}}]}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]]}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.72987, 0.239399, 
                0.230961]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.72987, 0.239399, 
                0.230961]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}}, {{}, {}}}, {{}, {{{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]], {
               
               Point[{{1., 0.1833297751442859}, {2., 0.16055721765491865`}, {
                3., 0.1465330638672015}, {4., 0.06947937057745303}, {5., 
                0.08666721412698207}, {6., 0.03795544644265376}, {7., 
                0.026213465521784995`}, {8., 0.04741025131102508}, {9., 
                0.023730618001156983`}, {10., 0.0273128396942967}, {11., 
                0.01006722951844903}, {12., 0.01662957394799668}, {13., 
                0.03708866431121771}, {14., 0.07342373143287854}, {15., 
                0.04163039888580546}, {16., 0.02992784890473489}}], {{
                 Line[{{1., 0.2465077878114625}, {1., 0.12015176247710928`}}], 
                 Line[{
                   Offset[{1.5, 0}, {1., 0.2465077878114625}], 
                   Offset[{-1.5, 0}, {1., 0.2465077878114625}]}], 
                 Line[{
                   Offset[{1.5, 0}, {1., 0.12015176247710928`}], 
                   Offset[{-1.5, 0}, {1., 0.12015176247710928`}]}]}, {
                 
                 Line[{{2., 0.23578133701021048`}, {2., 
                  0.08533309829962682}}], 
                 Line[{
                   Offset[{1.5, 0}, {2., 0.23578133701021048`}], 
                   Offset[{-1.5, 0}, {2., 0.23578133701021048`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {2., 0.08533309829962682}], 
                   Offset[{-1.5, 0}, {2., 0.08533309829962682}]}]}, {
                 
                 Line[{{3., 0.23519083566940596`}, {3., 
                  0.057875292064997017`}}], 
                 Line[{
                   Offset[{1.5, 0}, {3., 0.23519083566940596`}], 
                   Offset[{-1.5, 0}, {3., 0.23519083566940596`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {3., 0.057875292064997017`}], 
                   Offset[{-1.5, 0}, {3., 0.057875292064997017`}]}]}, {
                 Line[{{4., 0.12386155300986951`}, {4., 
                  0.015097188145036557`}}], 
                 Line[{
                   Offset[{1.5, 0}, {4., 0.12386155300986951`}], 
                   Offset[{-1.5, 0}, {4., 0.12386155300986951`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {4., 0.015097188145036557`}], 
                   Offset[{-1.5, 0}, {4., 0.015097188145036557`}]}]}, {
                 
                 Line[{{5., 0.20659164795904772`}, {
                  5., -0.03325721970508358}}], 
                 Line[{
                   Offset[{1.5, 0}, {5., 0.20659164795904772`}], 
                   Offset[{-1.5, 0}, {5., 0.20659164795904772`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {5., -0.03325721970508358}], 
                   Offset[{-1.5, 0}, {5., -0.03325721970508358}]}]}, {
                 
                 Line[{{6., 0.08344316800360768}, {
                  6., -0.007532275118300159}}], 
                 Line[{
                   Offset[{1.5, 0}, {6., 0.08344316800360768}], 
                   Offset[{-1.5, 0}, {6., 0.08344316800360768}]}], 
                 Line[{
                   Offset[{1.5, 0}, {6., -0.007532275118300159}], 
                   Offset[{-1.5, 0}, {6., -0.007532275118300159}]}]}, {
                 
                 Line[{{7., 0.04757622888303116}, {7., 
                  0.004850702160538827}}], 
                 Line[{
                   Offset[{1.5, 0}, {7., 0.04757622888303116}], 
                   Offset[{-1.5, 0}, {7., 0.04757622888303116}]}], 
                 Line[{
                   Offset[{1.5, 0}, {7., 0.004850702160538827}], 
                   Offset[{-1.5, 0}, {7., 0.004850702160538827}]}]}, {
                 Line[{{8., 0.08453800521664573}, {8., 0.01028249740540444}}], 
                 Line[{
                   Offset[{1.5, 0}, {8., 0.08453800521664573}], 
                   Offset[{-1.5, 0}, {8., 0.08453800521664573}]}], 
                 Line[{
                   Offset[{1.5, 0}, {8., 0.01028249740540444}], 
                   Offset[{-1.5, 0}, {8., 0.01028249740540444}]}]}, {
                 
                 Line[{{9., 0.0466932593781445}, {9., 
                  0.0007679766241694662}}], 
                 Line[{
                   Offset[{1.5, 0}, {9., 0.0466932593781445}], 
                   Offset[{-1.5, 0}, {9., 0.0466932593781445}]}], 
                 Line[{
                   Offset[{1.5, 0}, {9., 0.0007679766241694662}], 
                   Offset[{-1.5, 0}, {9., 0.0007679766241694662}]}]}, {
                 
                 Line[{{10., 0.05282243853395122}, {10., 
                  0.001803240854642174}}], 
                 Line[{
                   Offset[{1.5, 0}, {10., 0.05282243853395122}], 
                   Offset[{-1.5, 0}, {10., 0.05282243853395122}]}], 
                 Line[{
                   Offset[{1.5, 0}, {10., 0.001803240854642174}], 
                   Offset[{-1.5, 0}, {10., 0.001803240854642174}]}]}, {
                 
                 Line[{{11., 0.027819355148744333`}, {
                  11., -0.007684896111846272}}], 
                 Line[{
                   Offset[{1.5, 0}, {11., 0.027819355148744333`}], 
                   Offset[{-1.5, 0}, {11., 0.027819355148744333`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {11., -0.007684896111846272}], 
                   Offset[{-1.5, 0}, {11., -0.007684896111846272}]}]}, {
                 
                 Line[{{12., 0.03261073923817821}, {12., 
                  0.0006484086578151492}}], 
                 Line[{
                   Offset[{1.5, 0}, {12., 0.03261073923817821}], 
                   Offset[{-1.5, 0}, {12., 0.03261073923817821}]}], 
                 Line[{
                   Offset[{1.5, 0}, {12., 0.0006484086578151492}], 
                   Offset[{-1.5, 0}, {12., 0.0006484086578151492}]}]}, {
                 
                 Line[{{13., 0.07909473065959133}, {
                  13., -0.004917402037155898}}], 
                 Line[{
                   Offset[{1.5, 0}, {13., 0.07909473065959133}], 
                   Offset[{-1.5, 0}, {13., 0.07909473065959133}]}], 
                 Line[{
                   Offset[{1.5, 0}, {13., -0.004917402037155898}], 
                   Offset[{-1.5, 0}, {13., -0.004917402037155898}]}]}, {
                 
                 Line[{{14., 0.15306659376825388`}, {
                  14., -0.006219130902496775}}], 
                 Line[{
                   Offset[{1.5, 0}, {14., 0.15306659376825388`}], 
                   Offset[{-1.5, 0}, {14., 0.15306659376825388`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {14., -0.006219130902496775}], 
                   Offset[{-1.5, 0}, {14., -0.006219130902496775}]}]}, {
                 
                 Line[{{15., 0.07122556326818526}, {15., 
                  0.012035234503425671`}}], 
                 Line[{
                   Offset[{1.5, 0}, {15., 0.07122556326818526}], 
                   Offset[{-1.5, 0}, {15., 0.07122556326818526}]}], 
                 Line[{
                   Offset[{1.5, 0}, {15., 0.012035234503425671`}], 
                   Offset[{-1.5, 0}, {15., 0.012035234503425671`}]}]}, {
                 
                 Line[{{16., 0.040994380911273595`}, {16., 
                  0.018861316898196187`}}], 
                 Line[{
                   Offset[{1.5, 0}, {16., 0.040994380911273595`}], 
                   Offset[{-1.5, 0}, {16., 0.040994380911273595`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {16., 0.018861316898196187`}], 
                   Offset[{-1.5, 0}, {16., 0.018861316898196187`}]}]}}}}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]]}, {}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]]}, {}}}, {{}, {}}}, {{{{}, {}, 
             Annotation[{
               Directive[
                Opacity[1.], 
                AbsoluteThickness[1.6], 
                GrayLevel[0]], 
               Line[CompressedData["
1:eJwVj30w1Hkcx1HTeUikhxWLpFWL9aWRq9R+PiJZh0xdnPKYJXVMiVKu0m/J
IkltpB15yokkT7ElrChLhwppuRmV0g0q65b10NPt/fGe97zn/Z7XzNv0wJHd
oWoqKioeSv3vywRWu1VUZHBFJ4X7qFMCufqnHKV6MpB2uCi+tUnAIveJTSVD
2XN3fXJ4JIHtpQE6Qb/IwHvzPxoNtRI4Ks7oFGfJYGhELO/MlUD3+JRLPGsS
XOVdbNsoCSQ7Nzp83/cvrAkM8VOlSeD7tAfja+0UDIXJXMvD2mC4YE9P+Is5
cPn8tMB+/jFcmvCLts36DiYpx1Sl9a2gWUdeJhSoYpew3IRcbYEO/Zv+tywW
4nSjf9DUwUcQ4a7/5mTyIhx/L+9/G9QMF4rin6mt0sDLTu3czNtNQLv6LkVw
QwunWz4YHGxqAP6vHHaPQhv3P7kgW6fzEOpznldwHXVRsWmAaP32AApjz2wT
RS1FrXyjvc6vRIC5JTbaOXoY9/6o2qaYOqC/ct8nfr0MF89GWnhp1sLh2clz
7dor8PltkaZdVw3MWOoOsfauxA+mZzsTU6thS9md/KwsGuoVb7V7EFwFE3pu
Qd4t+mhbEZFe7l8Jw2lB3sd+MsD2qkNvMkrvws6JWM6IvSHyHib2eQ/cgbEQ
9eh78XQc9nzGc1QtA+e1NDV+ixHuSGUvNNtVCrpd5umVE8Y4enHUpaXnFmg/
9llvaLganTLOaqbuKoa/MunJKTXKXGW70uFrEXAv5gvnXE2xaVBEmK03gb4k
uJ02boo67A2NJomFoL2gMCaYtwaZ1poDVyIKwIgy2eprboZtcZd7WV75oM7w
q9stMUOXuf4odmYusLatqoj1X4vnru0sHnmaA1FDeq1uKgykxudCjWeF8Fme
tpeTzcA/F2drGQReBxfSJuSwzDEgmLanbOQaNModvsx0m2OierHFO24WRFpt
GHwRug6zU9gbG5ZlwtbP3D5fjfV42M4wSdggUP7X99AuXI9d2DH58dIVWHcu
9WTLz0yUp3sPJcZdBmboZjFjkIme+zQ9RwIzgNsUnngvygJTrAJb45+nQ1N+
H3dyhSUK6nbEiqVpIC/5MUNElmgw5brltMYFOMAo0xB6WGFLJttAEJ0CMguB
fbXMCnMcY+vc+/kgKvrydjqZhVaWtCPMiCTwdTZDB2Nr7Bl0dVtgfB4MIvkP
rJutEQbHOFEdCbBcM6LKw4cgreJZwaI8HhQ6nYmT+RI80PdqaP46D2zOpDsJ
/Ah6mYydkl3lgbus8qU0mODK/qr216k8ON8/PRcSQdBmY0xT9wkeKArjt8dR
BCtN3O9/8uTBgIOgt7iMYOvpem+WCg/CjxflcO4SNPSxznP/QoHibm3ox0qC
QV5qWyIVFOitkc7Y1hEMl+8Prf5IgZu6Eb2xmeCNmr5k9wEKGvqKub0vCUap
m9WIq5X9kvusE1KC3cO9Cnk5BdKdHQr9vwkKAzbymaUUTNWPJwe8IXhcVJCW
nUcBq8CmfHSMYHQFZ3VSmpI36Hgi7RNB67IS8WO+krd8DxAZwdmHoyULEygI
4x9/ETNN0LPojk/yKSWvOUlIm1Xuv/5B74yhgDd/LaR+nuD9Q+3MpUcp0LUr
tfL/RvDs6KZ4n98pyI2sn/7xg6B9Rgw9L4yC/wApqj5X
                "]]}, "Charting`Private`Tag$101237#1"]}}, {}}}, {
         AspectRatio -> 1, DisplayFunction -> Identity, DisplayFunction -> 
          Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> 
          GrayLevel[0], 
          BaseStyle -> {
           FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
            "Europa-Light", FontSize -> 18}, DisplayFunction :> Identity, 
          Frame -> {{True, False}, {True, False}}, 
          FrameLabel -> {{
            "p(going extinct at \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)", None}, {
            "transfer \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)", None}}, 
          FrameStyle -> Directive[
            Thickness[Medium]], FrameTicks -> {{{{0, 0, {0, 0.02}}, {
               Rational[1, 10], 0.1, {0, 0.02}}, {
               Rational[1, 5], 0.2, {0, 0.02}}, {
               Rational[3, 10], 0.3, {0, 0.02}}, {
               Rational[2, 5], 0.4, {0, 0.02}}}, 
             None}, {{{0, 0, {0, 0.02}}, {5, 5, {0, 0.02}}, {
              10, 10, {0, 0.02}}, {15, 15, {0, 0.02}}, {20, 20, {0, 0.02}}}, 
             None}}, FrameTicksStyle -> GrayLevel[0], 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImagePadding -> {{65, 10}, {65, 10}}, 
          ImageSize -> 400, LabelStyle -> {
            GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
          Method -> {
           "OptimizePlotMarkers" -> True, 
            "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& )}}, PlotLabel -> "repetitions", 
          PlotRange -> {{0, 16.}, {0, 0.41860465116279066`}}, 
          PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.05], 
             Scaled[0.05]}, {
             Scaled[0.05], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}, TicksStyle -> 
          GrayLevel[0]}], 
        Placed[
         Unevaluated[
          SwatchLegend[{
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.237736, 0.340215, 0.575113]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.72987, 0.239399, 0.230961]]}, {1, 2, 3, 4, 5, 6, 7, 8,
            9, 10}, LegendMarkers -> Automatic, LabelStyle -> {
             GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
           LegendLayout -> {"Row", 2}]], 
         Scaled[{0.7, 0.8}], Identity]]& ],
      AutoDelete->True,
      Editable->True,
      SelectWithContents->False,
      Selectable->True], 
     TagBox[
      GraphicsBox[{{{{}, {{{}, {}, 
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.19444444444444442`}, {2., 
               0.16666666666666666`}, {3., 0.1388888888888889}, {4., 
               0.1388888888888889}, {5., 0.05555555555555555}, {6., 0.}, {7., 
               0.1388888888888889}, {8., 0.027777777777777776`}, {9., 
               0.027777777777777776`}, {10., 0.}, {11., 
               0.05555555555555555}, {12., 0.}, {13., 
               0.027777777777777776`}, {14., 0.027777777777777776`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.3181818181818182}, {2., 0.09090909090909091}, {
               3., 0.022727272727272728`}, {4., 0.11363636363636365`}, {5., 
               0.045454545454545456`}, {6., 0.1590909090909091}, {7., 
               0.022727272727272728`}, {8., 0.06818181818181818}, {9., 
               0.045454545454545456`}, {10., 0.045454545454545456`}, {11., 
               0.022727272727272728`}, {12., 0.}, {13., 0.}, {14., 
               0.022727272727272728`}, {15., 0.022727272727272728`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.12903225806451613`}, {2., 
               0.06451612903225806}, {3., 0.12903225806451613`}, {4., 
               0.0967741935483871}, {5., 0.0967741935483871}, {6., 0.}, {7., 
               0.1935483870967742}, {8., 0.06451612903225806}, {9., 
               0.0967741935483871}, {10., 0.}, {11., 0.03225806451612903}, {
               12., 0.03225806451612903}, {13., 0.}, {14., 
               0.03225806451612903}, {15., 0.}, {16., 0.03225806451612903}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2}, {2., 0.12}, {3., 0.24}, {4., 0.08}, {5., 
               0.04}, {6., 0.08}, {7., 0.12}, {8., 0.}, {9., 0.04}, {10., 
               0.}, {11., 0.}, {12., 0.04}, {13., 0.04}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2878787878787879}, {2., 0.12121212121212122`}, {
               3., 0.09090909090909091}, {4., 0.09090909090909091}, {5., 
               0.015151515151515152`}, {6., 0.07575757575757576}, {7., 
               0.06060606060606061}, {8., 0.}, {9., 0.030303030303030304`}, {
               10., 0.030303030303030304`}, {11., 0.030303030303030304`}, {
               12., 0.015151515151515152`}, {13., 0.07575757575757576}, {14., 
               0.045454545454545456`}, {15., 0.030303030303030304`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.08333333333333333}, {2., 0.125}, {3., 
               0.08333333333333333}, {4., 0.16666666666666666`}, {5., 
               0.08333333333333333}, {6., 0.0625}, {7., 
               0.10416666666666666`}, {8., 0.0625}, {9., 
               0.020833333333333332`}, {10., 0.0625}, {11., 
               0.041666666666666664`}, {12., 0.}, {13., 
               0.020833333333333332`}, {14., 0.}, {15., 
               0.020833333333333332`}, {16., 0.0625}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2631578947368421}, {2., 0.14473684210526316`}, {
               3., 0.07894736842105263}, {4., 0.14473684210526316`}, {5., 
               0.}, {6., 0.09210526315789473}, {7., 0.039473684210526314`}, {
               8., 0.039473684210526314`}, {9., 0.02631578947368421}, {10., 
               0.02631578947368421}, {11., 0.039473684210526314`}, {12., 
               0.02631578947368421}, {13., 0.02631578947368421}, {14., 
               0.013157894736842105`}, {15., 0.013157894736842105`}, {16., 
               0.02631578947368421}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.25}, {2., 0.1111111111111111}, {3., 
               0.19444444444444442`}, {4., 0.}, {5., 0.027777777777777776`}, {
               6., 0.08333333333333333}, {7., 0.027777777777777776`}, {8., 
               0.05555555555555555}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 
               0.05555555555555555}, {13., 0.1388888888888889}, {14., 0.}, {
               15., 0.}, {16., 0.05555555555555555}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.3076923076923077}, {2., 0.3076923076923077}, {
               3., 0.}, {4., 0.}, {5., 0.}, {6., 0.07692307692307693}, {7., 
               0.}, {8., 0.07692307692307693}, {9., 0.07692307692307693}, {
               10., 0.}, {11., 0.07692307692307693}, {12., 0.}, {13., 0.}, {
               14., 0.07692307692307693}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.19148936170212766`}, {2., 0.0851063829787234}, {
               3., 0.14893617021276595`}, {4., 0.10638297872340426`}, {5., 
               0.0851063829787234}, {6., 0.0425531914893617}, {7., 
               0.02127659574468085}, {8., 0.1276595744680851}, {9., 0.}, {10.,
                0.02127659574468085}, {11., 0.}, {12., 0.0425531914893617}, {
               13., 0.06382978723404255}, {14., 0.02127659574468085}, {15., 
               0.}, {16., 0.0425531914893617}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.23076923076923075`}, {2., 
               0.07692307692307693}, {3., 0.07692307692307693}, {4., 
               0.15384615384615385`}, {5., 0.05128205128205128}, {6., 0.}, {
               7., 0.02564102564102564}, {8., 0.}, {9., 0.}, {10., 
               0.05128205128205128}, {11., 0.05128205128205128}, {12., 
               0.02564102564102564}, {13., 0.07692307692307693}, {14., 
               0.15384615384615385`}, {15., 0.02564102564102564}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.21428571428571427`}, {2., 
               0.19047619047619047`}, {3., 0.16666666666666666`}, {4., 
               0.11904761904761904`}, {5., 0.}, {6., 0.}, {7., 
               0.023809523809523808`}, {8., 0.047619047619047616`}, {9., 
               0.}, {10., 0.023809523809523808`}, {11., 0.}, {12., 0.}, {13., 
               0.}, {14., 0.14285714285714285`}, {15., 
               0.047619047619047616`}, {16., 0.023809523809523808`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.11627906976744186`}, {2., 0.}, {3., 
               0.09302325581395349}, {4., 0.046511627906976744`}, {5., 
               0.41860465116279066`}, {6., 0.}, {7., 0.046511627906976744`}, {
               8., 0.046511627906976744`}, {9., 0.046511627906976744`}, {10., 
               0.046511627906976744`}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 
               0.046511627906976744`}, {15., 0.046511627906976744`}, {16., 
               0.046511627906976744`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.17073170731707318`}, {2., 
               0.17073170731707318`}, {3., 0.12195121951219512`}, {4., 
               0.12195121951219512`}, {5., 0.04878048780487805}, {6., 
               0.0975609756097561}, {7., 0.07317073170731708}, {8., 
               0.04878048780487805}, {9., 0.024390243902439025`}, {10., 0.}, {
               11., 0.024390243902439025`}, {12., 0.024390243902439025`}, {
               13., 0.024390243902439025`}, {14., 0.024390243902439025`}, {
               15., 0.}, {16., 0.024390243902439025`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.18367346938775508`}, {2., 0.2040816326530612}, {
               3., 0.3061224489795918}, {4., 0.02040816326530612}, {5., 
               0.08163265306122448}, {6., 0.061224489795918366`}, {7., 
               0.02040816326530612}, {8., 0.061224489795918366`}, {9., 0.}, {
               10., 0.}, {11., 0.}, {12., 0.04081632653061224}, {13., 0.}, {
               14., 0.}, {15., 0.02040816326530612}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.12727272727272726`}, {2., 
               0.19999999999999998`}, {3., 0.2909090909090909}, {4., 
               0.03636363636363636}, {5., 0.05454545454545454}, {6., 
               0.12727272727272726`}, {7., 0.01818181818181818}, {8., 0.}, {
               9., 0.}, {10., 0.03636363636363636}, {11., 0.}, {12., 
               0.03636363636363636}, {13., 0.}, {14., 0.}, {15., 
               0.07272727272727272}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.2535211267605634}, {2., 0.1971830985915493}, {
               3., 0.11267605633802817`}, {4., 0.04225352112676056}, {5., 
               0.09859154929577466}, {6., 0.014084507042253521`}, {7., 0.}, {
               8., 0.014084507042253521`}, {9., 0.028169014084507043`}, {10., 
               0.056338028169014086`}, {11., 0.}, {12., 
               0.014084507042253521`}, {13., 0.056338028169014086`}, {14., 
               0.056338028169014086`}, {15., 0.056338028169014086`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.29411764705882354`}, {2., 0.2647058823529412}, {
               3., 0.029411764705882353`}, {4., 0.029411764705882353`}, {5., 
               0.029411764705882353`}, {6., 0.029411764705882353`}, {7., 
               0.029411764705882353`}, {8., 0.08823529411764705}, {9., 
               0.029411764705882353`}, {10., 0.058823529411764705`}, {11., 
               0.}, {12., 0.}, {13., 0.029411764705882353`}, {14., 0.}, {15., 
               0.08823529411764705}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.11764705882352941`}, {2., 0.1764705882352941}, {
               3., 0.11764705882352941`}, {4., 0.}, {5., 
               0.058823529411764705`}, {6., 0.}, {7., 0.}, {8., 
               0.11764705882352941`}, {9., 0.058823529411764705`}, {10., 
               0.}, {11., 0.}, {12., 0.}, {13., 0.058823529411764705`}, {14., 
               0.23529411764705882`}, {15., 0.058823529411764705`}}],
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             
             StyleBox[
              LineBox[{{1., 0.125}, {2., 0.125}, {3., 0.15000000000000002`}, {
               4., 0.125}, {5., 0.025}, {6., 0.05}, {7., 0.025}, {8., 0.05}, {
               9., 0.05}, {10., 0.}, {11., 0.025}, {12., 0.025}, {13., 
               0.125}, {14., 0.07500000000000001}, {15., 0.}, {16., 0.025}}],
              FontFamily->"Europa-Light",
              FontSize->18]}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              
              FontSize->
               18]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.237736, 0.340215, 0.575113], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`], 
             PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, 
            {RGBColor[0.72987, 0.239399, 0.230961], PointSize[Large], 
             AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              
              FontSize->
               18]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}}, {{}, {}}}, {{}, {
           {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
            
            StyleBox[{
              PointBox[{{1., 0.20292539787385183`}, {2., 
               0.14712614141283642`}, {3., 0.12962747328366897`}, {4., 
               0.08163943651262975}, {5., 0.06579127225348293}, {6., 
               0.05259089070893445}, {7., 0.04952999944682491}, {8., 
               0.049834506462967436`}, {9., 0.030084396341270254`}, {10., 
               0.02294891789594539}, {11., 0.01997898230433739}, {12., 
               0.01890649278331062}, {13., 0.03821448977887398}, {14., 
               0.05125329169521633}, {15., 0.029607383526972536`}, {16., 
               0.037654888517074464`}}], {{
                LineBox[{{1., 0.27439786568818614`}, {1., 
                 0.13145293005951755`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {1., 0.27439786568818614`}], 
                  Offset[{-1.5, 0}, {1., 0.27439786568818614`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {1., 0.13145293005951755`}], 
                  Offset[{-1.5, 0}, {1., 0.13145293005951755`}]}]}, {
                LineBox[{{2., 0.21818068673162488`}, {2., 
                 0.07607159609404794}}], 
                LineBox[{
                 Offset[{1.5, 0}, {2., 0.21818068673162488`}], 
                  Offset[{-1.5, 0}, {2., 0.21818068673162488`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {2., 0.07607159609404794}], 
                  Offset[{-1.5, 0}, {2., 0.07607159609404794}]}]}, {
                LineBox[{{3., 0.21070045891516054`}, {3., 
                 0.0485544876521774}}], 
                LineBox[{
                 Offset[{1.5, 0}, {3., 0.21070045891516054`}], 
                  Offset[{-1.5, 0}, {3., 0.21070045891516054`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {3., 0.0485544876521774}], 
                  Offset[{-1.5, 0}, {3., 0.0485544876521774}]}]}, {
                LineBox[{{4., 0.1368269621425934}, {4., 
                 0.026451910882666095`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {4., 0.1368269621425934}], 
                  Offset[{-1.5, 0}, {4., 0.1368269621425934}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {4., 0.026451910882666095`}], 
                  Offset[{-1.5, 0}, {4., 0.026451910882666095`}]}]}, {
                LineBox[{{5., 0.1544317503037112}, {
                 5., -0.022849205796745348`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {5., 0.1544317503037112}], 
                  Offset[{-1.5, 0}, {5., 0.1544317503037112}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {5., -0.022849205796745348`}], 
                  Offset[{-1.5, 0}, {5., -0.022849205796745348`}]}]}, {
                LineBox[{{6., 0.09973203052823931}, {6., 
                 0.0054497508896295815`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {6., 0.09973203052823931}], 
                  Offset[{-1.5, 0}, {6., 0.09973203052823931}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {6., 0.0054497508896295815`}], 
                  Offset[{-1.5, 0}, {6., 0.0054497508896295815`}]}]}, {
                LineBox[{{7., 0.10128256843220053`}, {
                 7., -0.0022225695385507116`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {7., 0.10128256843220053`}], 
                  Offset[{-1.5, 0}, {7., 0.10128256843220053`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {7., -0.0022225695385507116`}], 
                  Offset[{-1.5, 0}, {7., -0.0022225695385507116`}]}]}, {
                LineBox[{{8., 0.08651352239518656}, {8., 
                 0.01315549053074832}}], 
                LineBox[{
                 Offset[{1.5, 0}, {8., 0.08651352239518656}], 
                  Offset[{-1.5, 0}, {8., 0.08651352239518656}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {8., 0.01315549053074832}], 
                  Offset[{-1.5, 0}, {8., 0.01315549053074832}]}]}, {
                LineBox[{{9., 0.05726846430862509}, {9., 
                 0.0029003283739154166`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {9., 0.05726846430862509}], 
                  Offset[{-1.5, 0}, {9., 0.05726846430862509}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {9., 0.0029003283739154166`}], 
                  Offset[{-1.5, 0}, {9., 0.0029003283739154166`}]}]}, {
                LineBox[{{10., 0.046811866291599225`}, {
                 10., -0.0009140304997084479}}], 
                LineBox[{
                 Offset[{1.5, 0}, {10., 0.046811866291599225`}], 
                  Offset[{-1.5, 0}, {10., 0.046811866291599225`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {10., -0.0009140304997084479}], 
                  Offset[{-1.5, 0}, {10., -0.0009140304997084479}]}]}, {
                LineBox[{{11., 0.043643063205603086`}, {
                 11., -0.0036850985969283066`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {11., 0.043643063205603086`}], 
                  Offset[{-1.5, 0}, {11., 0.043643063205603086`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {11., -0.0036850985969283066`}], 
                  Offset[{-1.5, 0}, {11., -0.0036850985969283066`}]}]}, {
                LineBox[{{12., 0.03722352896946602}, {12., 
                 0.0005894565971552232}}], 
                LineBox[{
                 Offset[{1.5, 0}, {12., 0.03722352896946602}], 
                  Offset[{-1.5, 0}, {12., 0.03722352896946602}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {12., 0.0005894565971552232}], 
                  Offset[{-1.5, 0}, {12., 0.0005894565971552232}]}]}, {
                LineBox[{{13., 0.07990953623762777}, {
                 13., -0.003480556679879801}}], 
                LineBox[{
                 Offset[{1.5, 0}, {13., 0.07990953623762777}], 
                  Offset[{-1.5, 0}, {13., 0.07990953623762777}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {13., -0.003480556679879801}], 
                  Offset[{-1.5, 0}, {13., -0.003480556679879801}]}]}, {
                LineBox[{{14., 0.11450939836489968`}, {
                 14., -0.012002814974467028`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {14., 0.11450939836489968`}], 
                  Offset[{-1.5, 0}, {14., 0.11450939836489968`}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {14., -0.012002814974467028`}], 
                  Offset[{-1.5, 0}, {14., -0.012002814974467028`}]}]}, {
                LineBox[{{15., 0.05739404145597925}, {15., 
                 0.0018207255979658214`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {15., 0.05739404145597925}], 
                  Offset[{-1.5, 0}, {15., 0.05739404145597925}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {15., 0.0018207255979658214`}], 
                  Offset[{-1.5, 0}, {15., 0.0018207255979658214`}]}]}, {
                LineBox[{{16., 0.05234179020735946}, {16., 
                 0.022967986826789466`}}], 
                LineBox[{
                 Offset[{1.5, 0}, {16., 0.05234179020735946}], 
                  Offset[{-1.5, 0}, {16., 0.05234179020735946}]}], 
                LineBox[{
                 Offset[{1.5, 0}, {16., 0.022967986826789466`}], 
                  Offset[{-1.5, 0}, {16., 0.022967986826789466`}]}]}}},
             FontFamily->"Europa-Light",
             FontSize->18]}, {
            {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, {}}, {
            {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
             StyleBox[{},
              FontFamily->"Europa-Light",
              FontSize->18]}, {}}}, {{}, {}}}, {{{}, {}, 
           TagBox[
            {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
             LineBox[CompressedData["
1:eJwVkGs01AkYxiddUDvl2gxGchkxGf/psrZW9b4uxbh0OlHuHfd1Ns7SjSxr
/pOacU1Gw0pCDpUSCrnMEIXSCrGhzUrrdFEZMTTTxtoPz3k+/J4vv8c4+JeD
YSoUCsV9Kf+3tsjqIIUiA5NXfM/PjC4opJ+2G9KSgeGGmYKVtC5gFT7kVDFl
sNeC6quv2QX214+sC3SVAcT1cpxXdkF0S9aTFrEMfKQX99V+7ISeydl9Sexp
CGMeax+QdoLQUWK74PsZ+oYlKebBnbAgd2f+WzsL3u423ctudcB4sUd/RJ8C
qtOizEZsHsL5Kf/jW8QLcEXrcaLrVDusriMGzxQvw2cDIb/63G+DR/SrAeWs
Fbgt+kG8MuM+RLrRx+KEq3B7Gkc0wWuFtNKkpyp66hh+qoU5MSoFWs7rFNHl
NZh1Ltvh6NtmEHhy9/TPUXFF+KrVmZwmaCzovR1qp4EJZG6cTkwDlMQm7q6P
0cRohUhy+F09YOE1DrVAC1WuWdsRvDpgPHfzbflbG8dUVxmFatTCz1+meV1U
XaSvURBHe+7A/GaNUfah9VjlbN+2XlADP1bcLBKLaZjX5fZqv281TGm5BB5u
oyOtuv2NikcVjKcHHj6mqo97LtWM6GVWgtNULHfCxgAH8npPTt27Ce9D1I7f
TWLgNm/Ph3v/ugGOZjQVQZsh6swWlPmbXweNP8wzq6Y2YEpDQvby8nKgPvCy
MDDYiLLfooKNjcug+yJDmHJnI05aqq/r6S6F0IyifIWzMb6MyLfbdOEqMNYG
ddEmjVHKLHZ+cqAEqMtLTgTxTXCNftKYz45iMCSNdvmYm+LzHEvFfoMiUGP6
1x3sNMVYrl/vU1YhsHfr3Y4NMEPau2GeU2ABxIxqtbtQmKjatPeeJCMfPs2k
H+LmMVHp22d0QJ4H+4iOfC7bHCWShPH7CbkgmbH9Ot9jjpcXnWx3fLsIUVZb
R/rCNqGFSWpU7K0c2PUpdMBH3QKn1Qop2t6iJX+6O7XEAo1HDPq2srNhEy81
ru0HS1Rqelvd0bsAlmE7W5gjlnjTj67ttCwLQqURyXdjWCgmPT5k0zJBWjQQ
Oq27GaP8/EoqzNJh5triPFG/GZU0V9X9vqkQzKxQz3e3wprB/mzqIyHIWCKb
GpkV0lTPPZjgCKC+9OsruZCNQm5Gv6j7LPg4mqLtBmtMTsvjsfjJoB8laLBu
tcbqS5rspq1nQGd1ZLW7F4FZDSatulQ+lDgkxst8CFxrqrPDSI0PnMRMB5E/
gZ/Y3lTWcj64yaoGh4IILND17nFQkHD2T7kiJJLAncearwgmSJgrSbKPJwns
6Mm1OiAlYdhW9KysgkDH0/Ne49EkRJwsLeBWEnhZ37RtfeTSvrI27EMVga7i
/kS3n0jQMhma31JH4OhKl7dNASS4qBkyJK0EPm6IT7rhQkLzQFnos0ECaUdt
wjvMlvjae+xTQwQGlXtJ1m0kYcjp0Rz9BYH2r20DfQ1ImG2cFB4ZIzBEPCaY
0SSBXcy59e49gUgt9/x+kQfNI3an0j8SeLxhclGo5IGLjgcQMgIXIhizL+U8
CBec7DshJ5BiPVSb9oEHs63n8mlfCMy4Xcn/5w0P+MrckEYlgee/U8vd85oH
GtuvWwV8I1BnZ+rn30d5UBjVKF9cXPrP7kXO3DAP/gPufC2p
              "]]},
            Annotation[#, "Charting`Private`Tag$101963#1"]& ]}, {}}}, InsetBox[
         TemplateBox[{"1","2","3","4","5","6","7","8","9","10"},
          "SwatchLegend",
          DisplayFunction->(FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[0.237736, 0.340215, 0.575113]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                    "Grid"]}, {
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #7, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #8, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #9, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                    PointSize -> Large, FontFamily -> "Europa-Light", 
                    FontSize -> 18, 
                    RGBColor[0.72987, 0.239399, 0.230961]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.148] -> Baseline)], #10}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                    "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxDividers -> {
                  "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             Background -> Automatic, StripOnInput -> False], 
            TraditionalForm]& ),
          Editable->True,
          InterpretationFunction:>(RowBox[{"SwatchLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.237736, 0.340215, 0.575113], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.15849066666666667`, 0.22681, 0.3834086666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.237736`", ",", "0.340215`", ",", "0.575113`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.237736, 0.340215, 0.575113]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.237736, 0.340215, 0.575113], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.16989874074074074`, 0.23571614814814817`, 
                    0.3592672592592593], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2548481111111111`", ",", 
                    "0.35357422222222223`", ",", "0.5389008888888889`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.18028985185185187`, 0.29003762962962965`, 
                    0.23978681481481484`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2704347777777778`", ",", 
                    "0.43505644444444447`", ",", "0.35968022222222223`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2220737777777778, 0.33548555555555554`, 
                    0.1743648888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.33311066666666667`", ",", 
                    "0.5032283333333333`", ",", "0.26154733333333335`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3393654814814815, 0.4051802222222222, 
                    0.1678728888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.5090482222222222`", ",", "0.6077703333333333`",
                     ",", "0.25180933333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4862688148148148, 0.48330874074074076`, 
                    0.1907017777777778], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7294032222222222`", ",", "0.7249631111111111`",
                     ",", "0.2860526666666667`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5708406666666667, 0.49519599999999997`, 
                    0.21272222222222223`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.8562609999999999`", ",", "0.742794`", ",", 
                    "0.31908333333333333`"}], "]"}], NumberMarks -> False]], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8562609999999999, 0.742794, 
                    0.31908333333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    Editable -> False, Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5515110370370371, 0.37725540740740743`, 
                    0.20577814814814815`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.8272665555555555`", ",", "0.5658831111111111`",
                     ",", "0.3086672222222222`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4927234814814815, 0.1802878518518519, 
                    0.15934422222222222`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7390852222222222`", ",", "0.2704317777777778`",
                     ",", "0.23901633333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.72987, 0.239399, 0.230961], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.48658, 0.15959933333333334`, 0.153974], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.72987`", ",", "0.239399`", ",", "0.230961`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.72987, 0.239399, 0.230961]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.72987, 0.239399, 0.230961], Editable -> False, 
                    Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.237736, 0.340215, 0.575113], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.15849066666666667`, 0.22681, 0.3834086666666667], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.237736`", ",", "0.340215`", ",", "0.575113`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.237736, 0.340215, 0.575113]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.237736, 0.340215, 0.575113], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.16989874074074074`, 0.23571614814814817`, 
                    0.3592672592592593], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2548481111111111`", ",", 
                    "0.35357422222222223`", ",", "0.5389008888888889`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2548481111111111, 0.35357422222222223`, 
                    0.5389008888888889], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.18028985185185187`, 0.29003762962962965`, 
                    0.23978681481481484`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.2704347777777778`", ",", 
                    "0.43505644444444447`", ",", "0.35968022222222223`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.2704347777777778, 0.43505644444444447`, 
                    0.35968022222222223`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.2220737777777778, 0.33548555555555554`, 
                    0.1743648888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.33311066666666667`", ",", 
                    "0.5032283333333333`", ",", "0.26154733333333335`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.33311066666666667`, 0.5032283333333333, 
                    0.26154733333333335`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3393654814814815, 0.4051802222222222, 
                    0.1678728888888889], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.5090482222222222`", ",", "0.6077703333333333`",
                     ",", "0.25180933333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.5090482222222222, 0.6077703333333333, 
                    0.25180933333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4862688148148148, 0.48330874074074076`, 
                    0.1907017777777778], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7294032222222222`", ",", "0.7249631111111111`",
                     ",", "0.2860526666666667`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7294032222222222, 0.7249631111111111, 
                    0.2860526666666667], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5708406666666667, 0.49519599999999997`, 
                    0.21272222222222223`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.8562609999999999`", ",", "0.742794`", ",", 
                    "0.31908333333333333`"}], "]"}], NumberMarks -> False]], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8562609999999999, 0.742794, 
                    0.31908333333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8562609999999999, 0.742794, 0.31908333333333333`], 
                    Editable -> False, Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5515110370370371, 0.37725540740740743`, 
                    0.20577814814814815`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.8272665555555555`", ",", "0.5658831111111111`",
                     ",", "0.3086672222222222`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.8272665555555555, 0.5658831111111111, 
                    0.3086672222222222], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4927234814814815, 0.1802878518518519, 
                    0.15934422222222222`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.7390852222222222`", ",", "0.2704317777777778`",
                     ",", "0.23901633333333333`"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.7390852222222222, 0.2704317777777778, 
                    0.23901633333333333`], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontColor", "\[Rule]", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    ",", 
                    RowBox[{"PointSize", "\[Rule]", "Large"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.72987, 0.239399, 0.230961], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.48658, 0.15959933333333334`, 0.153974], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.72987`", ",", "0.239399`", ",", "0.230961`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.72987, 0.239399, 0.230961]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.72987, 0.239399, 0.230961], Editable -> False, 
                    Selectable -> False]}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 
                 RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                   ",", #7, ",", #8, ",", #9, ",", #10}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "Automatic"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"Europa-Light\""}], 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& )], 
         Scaled[{0.7, 0.8}], ImageScaled[{0.5, 0.5}],
         BaseStyle->{FontSize -> Larger},
         FormatType->StandardForm]},
       AspectRatio->1,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->GrayLevel[0],
       BaseStyle->{
        FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
         "Europa-Light", FontSize -> 18},
       DisplayFunction->Identity,
       Frame->{{True, False}, {True, False}},
       FrameLabel->{{
          FormBox[
          "\"p(going extinct at \
\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\
\")\\\",FontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm], None}, {
          FormBox[
          "\"transfer \
\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\"", 
           TraditionalForm], None}},
       FrameStyle->Directive[
         Thickness[Medium]],
       FrameTicks->{{{{0, 
            FormBox["0", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[1, 10], 0.1], 
            FormBox["0.1`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[1, 5], 0.2], 
            FormBox["0.2`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[3, 10], 0.3], 
            FormBox["0.3`", TraditionalForm], {0, 0.02}}, {
            NCache[
             Rational[2, 5], 0.4], 
            FormBox["0.4`", TraditionalForm], {0, 0.02}}}, None}, {{{0, 
            FormBox["0", TraditionalForm], {0, 0.02}}, {5, 
            FormBox["5", TraditionalForm], {0, 0.02}}, {10, 
            FormBox["10", TraditionalForm], {0, 0.02}}, {15, 
            FormBox["15", TraditionalForm], {0, 0.02}}, {20, 
            FormBox["20", TraditionalForm], {0, 0.02}}}, None}},
       FrameTicksStyle->GrayLevel[0],
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{65, 10}, {65, 10}},
       ImageSize->400,
       LabelStyle->{
         GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
       Method->{
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotLabel->FormBox["\"all together\"", TraditionalForm],
       PlotRange->{{0, 16.}, {0, 0.41860465116279066`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.05], 
          Scaled[0.05]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic},
       TicksStyle->GrayLevel[0]],
      InterpretTemplate[Legended[
        Graphics[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]], 
              
              Line[{{1., 0.19444444444444442`}, {2., 0.16666666666666666`}, {
               3., 0.1388888888888889}, {4., 0.1388888888888889}, {5., 
               0.05555555555555555}, {6., 0.}, {7., 0.1388888888888889}, {8., 
               0.027777777777777776`}, {9., 0.027777777777777776`}, {10., 
               0.}, {11., 0.05555555555555555}, {12., 0.}, {13., 
               0.027777777777777776`}, {14., 0.027777777777777776`}}]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
              
              Line[{{1., 0.3181818181818182}, {2., 0.09090909090909091}, {3., 
               0.022727272727272728`}, {4., 0.11363636363636365`}, {5., 
               0.045454545454545456`}, {6., 0.1590909090909091}, {7., 
               0.022727272727272728`}, {8., 0.06818181818181818}, {9., 
               0.045454545454545456`}, {10., 0.045454545454545456`}, {11., 
               0.022727272727272728`}, {12., 0.}, {13., 0.}, {14., 
               0.022727272727272728`}, {15., 0.022727272727272728`}}]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]], 
              
              Line[{{1., 0.12903225806451613`}, {2., 0.06451612903225806}, {
               3., 0.12903225806451613`}, {4., 0.0967741935483871}, {5., 
               0.0967741935483871}, {6., 0.}, {7., 0.1935483870967742}, {8., 
               0.06451612903225806}, {9., 0.0967741935483871}, {10., 0.}, {
               11., 0.03225806451612903}, {12., 0.03225806451612903}, {13., 
               0.}, {14., 0.03225806451612903}, {15., 0.}, {16., 
               0.03225806451612903}}]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]], 
              
              Line[{{1., 0.2}, {2., 0.12}, {3., 0.24}, {4., 0.08}, {5., 
               0.04}, {6., 0.08}, {7., 0.12}, {8., 0.}, {9., 0.04}, {10., 
               0.}, {11., 0.}, {12., 0.04}, {13., 0.04}}]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
              
              Line[{{1., 0.2878787878787879}, {2., 0.12121212121212122`}, {3.,
                0.09090909090909091}, {4., 0.09090909090909091}, {5., 
               0.015151515151515152`}, {6., 0.07575757575757576}, {7., 
               0.06060606060606061}, {8., 0.}, {9., 0.030303030303030304`}, {
               10., 0.030303030303030304`}, {11., 0.030303030303030304`}, {
               12., 0.015151515151515152`}, {13., 0.07575757575757576}, {14., 
               0.045454545454545456`}, {15., 0.030303030303030304`}}]}, {
              Hue[0.8503398874989481, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
              
              Line[{{1., 0.08333333333333333}, {2., 0.125}, {3., 
               0.08333333333333333}, {4., 0.16666666666666666`}, {5., 
               0.08333333333333333}, {6., 0.0625}, {7., 
               0.10416666666666666`}, {8., 0.0625}, {9., 
               0.020833333333333332`}, {10., 0.0625}, {11., 
               0.041666666666666664`}, {12., 0.}, {13., 
               0.020833333333333332`}, {14., 0.}, {15., 
               0.020833333333333332`}, {16., 0.0625}}]}, {
              Hue[0.08640786499873876, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
              
              Line[{{1., 0.2631578947368421}, {2., 0.14473684210526316`}, {3.,
                0.07894736842105263}, {4., 0.14473684210526316`}, {5., 0.}, {
               6., 0.09210526315789473}, {7., 0.039473684210526314`}, {8., 
               0.039473684210526314`}, {9., 0.02631578947368421}, {10., 
               0.02631578947368421}, {11., 0.039473684210526314`}, {12., 
               0.02631578947368421}, {13., 0.02631578947368421}, {14., 
               0.013157894736842105`}, {15., 0.013157894736842105`}, {16., 
               0.02631578947368421}}]}, {
              Hue[0.3224758424985268, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
              
              Line[{{1., 0.25}, {2., 0.1111111111111111}, {3., 
               0.19444444444444442`}, {4., 0.}, {5., 0.027777777777777776`}, {
               6., 0.08333333333333333}, {7., 0.027777777777777776`}, {8., 
               0.05555555555555555}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 
               0.05555555555555555}, {13., 0.1388888888888889}, {14., 0.}, {
               15., 0.}, {16., 0.05555555555555555}}]}, {
              Hue[0.5585438199983166, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
              
              Line[{{1., 0.3076923076923077}, {2., 0.3076923076923077}, {3., 
               0.}, {4., 0.}, {5., 0.}, {6., 0.07692307692307693}, {7., 0.}, {
               8., 0.07692307692307693}, {9., 0.07692307692307693}, {10., 
               0.}, {11., 0.07692307692307693}, {12., 0.}, {13., 0.}, {14., 
               0.07692307692307693}}]}, {
              Hue[0.7946117974981064, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]], 
              
              Line[{{1., 0.19148936170212766`}, {2., 0.0851063829787234}, {3.,
                0.14893617021276595`}, {4., 0.10638297872340426`}, {5., 
               0.0851063829787234}, {6., 0.0425531914893617}, {7., 
               0.02127659574468085}, {8., 0.1276595744680851}, {9., 0.}, {10.,
                0.02127659574468085}, {11., 0.}, {12., 0.0425531914893617}, {
               13., 0.06382978723404255}, {14., 0.02127659574468085}, {15., 
               0.}, {16., 0.0425531914893617}}]}, {
              Hue[0.030679774997896203`, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]], 
              
              Line[{{1., 0.23076923076923075`}, {2., 0.07692307692307693}, {
               3., 0.07692307692307693}, {4., 0.15384615384615385`}, {5., 
               0.05128205128205128}, {6., 0.}, {7., 0.02564102564102564}, {8.,
                0.}, {9., 0.}, {10., 0.05128205128205128}, {11., 
               0.05128205128205128}, {12., 0.02564102564102564}, {13., 
               0.07692307692307693}, {14., 0.15384615384615385`}, {15., 
               0.02564102564102564}}]}, {
              Hue[0.266747752497686, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
              
              Line[{{1., 0.21428571428571427`}, {2., 0.19047619047619047`}, {
               3., 0.16666666666666666`}, {4., 0.11904761904761904`}, {5., 
               0.}, {6., 0.}, {7., 0.023809523809523808`}, {8., 
               0.047619047619047616`}, {9., 0.}, {10., 
               0.023809523809523808`}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 
               0.14285714285714285`}, {15., 0.047619047619047616`}, {16., 
               0.023809523809523808`}}]}, {
              Hue[0.5028157299974758, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]], 
              
              Line[{{1., 0.11627906976744186`}, {2., 0.}, {3., 
               0.09302325581395349}, {4., 0.046511627906976744`}, {5., 
               0.41860465116279066`}, {6., 0.}, {7., 0.046511627906976744`}, {
               8., 0.046511627906976744`}, {9., 0.046511627906976744`}, {10., 
               0.046511627906976744`}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 
               0.046511627906976744`}, {15., 0.046511627906976744`}, {16., 
               0.046511627906976744`}}]}, {
              Hue[0.7388837074972656, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]], 
              
              Line[{{1., 0.17073170731707318`}, {2., 0.17073170731707318`}, {
               3., 0.12195121951219512`}, {4., 0.12195121951219512`}, {5., 
               0.04878048780487805}, {6., 0.0975609756097561}, {7., 
               0.07317073170731708}, {8., 0.04878048780487805}, {9., 
               0.024390243902439025`}, {10., 0.}, {11., 
               0.024390243902439025`}, {12., 0.024390243902439025`}, {13., 
               0.024390243902439025`}, {14., 0.024390243902439025`}, {15., 
               0.}, {16., 0.024390243902439025`}}]}, {
              Hue[0.9749516849970554, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
              
              Line[{{1., 0.18367346938775508`}, {2., 0.2040816326530612}, {3.,
                0.3061224489795918}, {4., 0.02040816326530612}, {5., 
               0.08163265306122448}, {6., 0.061224489795918366`}, {7., 
               0.02040816326530612}, {8., 0.061224489795918366`}, {9., 0.}, {
               10., 0.}, {11., 0.}, {12., 0.04081632653061224}, {13., 0.}, {
               14., 0.}, {15., 0.02040816326530612}}]}, {
              Hue[0.21101966249684523`, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
              
              Line[{{1., 0.12727272727272726`}, {2., 0.19999999999999998`}, {
               3., 0.2909090909090909}, {4., 0.03636363636363636}, {5., 
               0.05454545454545454}, {6., 0.12727272727272726`}, {7., 
               0.01818181818181818}, {8., 0.}, {9., 0.}, {10., 
               0.03636363636363636}, {11., 0.}, {12., 0.03636363636363636}, {
               13., 0.}, {14., 0.}, {15., 0.07272727272727272}}]}, {
              Hue[0.44708763999663503`, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
              
              Line[{{1., 0.2535211267605634}, {2., 0.1971830985915493}, {3., 
               0.11267605633802817`}, {4., 0.04225352112676056}, {5., 
               0.09859154929577466}, {6., 0.014084507042253521`}, {7., 0.}, {
               8., 0.014084507042253521`}, {9., 0.028169014084507043`}, {10., 
               0.056338028169014086`}, {11., 0.}, {12., 
               0.014084507042253521`}, {13., 0.056338028169014086`}, {14., 
               0.056338028169014086`}, {15., 0.056338028169014086`}}]}, {
              Hue[0.6831556174964248, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
              
              Line[{{1., 0.29411764705882354`}, {2., 0.2647058823529412}, {3.,
                0.029411764705882353`}, {4., 0.029411764705882353`}, {5., 
               0.029411764705882353`}, {6., 0.029411764705882353`}, {7., 
               0.029411764705882353`}, {8., 0.08823529411764705}, {9., 
               0.029411764705882353`}, {10., 0.058823529411764705`}, {11., 
               0.}, {12., 0.}, {13., 0.029411764705882353`}, {14., 0.}, {15., 
               0.08823529411764705}}]}, {
              Hue[0.9192235949962146, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
              
              Line[{{1., 0.11764705882352941`}, {2., 0.1764705882352941}, {3.,
                0.11764705882352941`}, {4., 0.}, {5., 
               0.058823529411764705`}, {6., 0.}, {7., 0.}, {8., 
               0.11764705882352941`}, {9., 0.058823529411764705`}, {10., 
               0.}, {11., 0.}, {12., 0.}, {13., 0.058823529411764705`}, {14., 
               0.23529411764705882`}, {15., 0.058823529411764705`}}]}, {
              Hue[0.15529157249600445`, 0.6, 0.6], 
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]], 
              
              Line[{{1., 0.125}, {2., 0.125}, {3., 0.15000000000000002`}, {4.,
                0.125}, {5., 0.025}, {6., 0.05}, {7., 0.025}, {8., 0.05}, {9.,
                0.05}, {10., 0.}, {11., 0.025}, {12., 0.025}, {13., 0.125}, {
               14., 0.07500000000000001}, {15., 0.}, {16., 0.025}}]}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]]}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.72987, 0.239399, 
                0.230961]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.72987, 0.239399, 0.230961]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[0.237736, 0.340215, 0.575113]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2548481111111111, 0.35357422222222223`, 
                0.5389008888888889]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.2704347777777778, 0.43505644444444447`, 
                0.35968022222222223`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.33311066666666667`, 0.5032283333333333, 
                0.26154733333333335`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.5090482222222222, 0.6077703333333333, 
                0.25180933333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7294032222222222, 0.7249631111111111, 0.2860526666666667]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8562609999999999, 0.742794, 0.31908333333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.8272665555555555, 0.5658831111111111, 0.3086672222222222]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.7390852222222222, 0.2704317777777778, 
                0.23901633333333333`]]}, {
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               RGBColor[
               0.72987, 0.239399, 
                0.230961]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {{}, {{{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]], {
               
               Point[{{1., 0.20292539787385183`}, {2., 
                0.14712614141283642`}, {3., 0.12962747328366897`}, {4., 
                0.08163943651262975}, {5., 0.06579127225348293}, {6., 
                0.05259089070893445}, {7., 0.04952999944682491}, {8., 
                0.049834506462967436`}, {9., 0.030084396341270254`}, {10., 
                0.02294891789594539}, {11., 0.01997898230433739}, {12., 
                0.01890649278331062}, {13., 0.03821448977887398}, {14., 
                0.05125329169521633}, {15., 0.029607383526972536`}, {16., 
                0.037654888517074464`}}], {{
                 
                 Line[{{1., 0.27439786568818614`}, {1., 
                  0.13145293005951755`}}], 
                 Line[{
                   Offset[{1.5, 0}, {1., 0.27439786568818614`}], 
                   Offset[{-1.5, 0}, {1., 0.27439786568818614`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {1., 0.13145293005951755`}], 
                   Offset[{-1.5, 0}, {1., 0.13145293005951755`}]}]}, {
                 Line[{{2., 0.21818068673162488`}, {2., 
                  0.07607159609404794}}], 
                 Line[{
                   Offset[{1.5, 0}, {2., 0.21818068673162488`}], 
                   Offset[{-1.5, 0}, {2., 0.21818068673162488`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {2., 0.07607159609404794}], 
                   Offset[{-1.5, 0}, {2., 0.07607159609404794}]}]}, {
                 Line[{{3., 0.21070045891516054`}, {3., 0.0485544876521774}}], 
                 Line[{
                   Offset[{1.5, 0}, {3., 0.21070045891516054`}], 
                   Offset[{-1.5, 0}, {3., 0.21070045891516054`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {3., 0.0485544876521774}], 
                   Offset[{-1.5, 0}, {3., 0.0485544876521774}]}]}, {
                 
                 Line[{{4., 0.1368269621425934}, {4., 
                  0.026451910882666095`}}], 
                 Line[{
                   Offset[{1.5, 0}, {4., 0.1368269621425934}], 
                   Offset[{-1.5, 0}, {4., 0.1368269621425934}]}], 
                 Line[{
                   Offset[{1.5, 0}, {4., 0.026451910882666095`}], 
                   Offset[{-1.5, 0}, {4., 0.026451910882666095`}]}]}, {
                 
                 Line[{{5., 0.1544317503037112}, {
                  5., -0.022849205796745348`}}], 
                 Line[{
                   Offset[{1.5, 0}, {5., 0.1544317503037112}], 
                   Offset[{-1.5, 0}, {5., 0.1544317503037112}]}], 
                 Line[{
                   Offset[{1.5, 0}, {5., -0.022849205796745348`}], 
                   Offset[{-1.5, 0}, {5., -0.022849205796745348`}]}]}, {
                 
                 Line[{{6., 0.09973203052823931}, {6., 
                  0.0054497508896295815`}}], 
                 Line[{
                   Offset[{1.5, 0}, {6., 0.09973203052823931}], 
                   Offset[{-1.5, 0}, {6., 0.09973203052823931}]}], 
                 Line[{
                   Offset[{1.5, 0}, {6., 0.0054497508896295815`}], 
                   Offset[{-1.5, 0}, {6., 0.0054497508896295815`}]}]}, {
                 
                 Line[{{7., 0.10128256843220053`}, {
                  7., -0.0022225695385507116`}}], 
                 Line[{
                   Offset[{1.5, 0}, {7., 0.10128256843220053`}], 
                   Offset[{-1.5, 0}, {7., 0.10128256843220053`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {7., -0.0022225695385507116`}], 
                   Offset[{-1.5, 0}, {7., -0.0022225695385507116`}]}]}, {
                 Line[{{8., 0.08651352239518656}, {8., 0.01315549053074832}}], 
                 Line[{
                   Offset[{1.5, 0}, {8., 0.08651352239518656}], 
                   Offset[{-1.5, 0}, {8., 0.08651352239518656}]}], 
                 Line[{
                   Offset[{1.5, 0}, {8., 0.01315549053074832}], 
                   Offset[{-1.5, 0}, {8., 0.01315549053074832}]}]}, {
                 
                 Line[{{9., 0.05726846430862509}, {9., 
                  0.0029003283739154166`}}], 
                 Line[{
                   Offset[{1.5, 0}, {9., 0.05726846430862509}], 
                   Offset[{-1.5, 0}, {9., 0.05726846430862509}]}], 
                 Line[{
                   Offset[{1.5, 0}, {9., 0.0029003283739154166`}], 
                   Offset[{-1.5, 0}, {9., 0.0029003283739154166`}]}]}, {
                 
                 Line[{{10., 0.046811866291599225`}, {
                  10., -0.0009140304997084479}}], 
                 Line[{
                   Offset[{1.5, 0}, {10., 0.046811866291599225`}], 
                   Offset[{-1.5, 0}, {10., 0.046811866291599225`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {10., -0.0009140304997084479}], 
                   Offset[{-1.5, 0}, {10., -0.0009140304997084479}]}]}, {
                 
                 Line[{{11., 0.043643063205603086`}, {
                  11., -0.0036850985969283066`}}], 
                 Line[{
                   Offset[{1.5, 0}, {11., 0.043643063205603086`}], 
                   Offset[{-1.5, 0}, {11., 0.043643063205603086`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {11., -0.0036850985969283066`}], 
                   Offset[{-1.5, 0}, {11., -0.0036850985969283066`}]}]}, {
                 
                 Line[{{12., 0.03722352896946602}, {12., 
                  0.0005894565971552232}}], 
                 Line[{
                   Offset[{1.5, 0}, {12., 0.03722352896946602}], 
                   Offset[{-1.5, 0}, {12., 0.03722352896946602}]}], 
                 Line[{
                   Offset[{1.5, 0}, {12., 0.0005894565971552232}], 
                   Offset[{-1.5, 0}, {12., 0.0005894565971552232}]}]}, {
                 
                 Line[{{13., 0.07990953623762777}, {
                  13., -0.003480556679879801}}], 
                 Line[{
                   Offset[{1.5, 0}, {13., 0.07990953623762777}], 
                   Offset[{-1.5, 0}, {13., 0.07990953623762777}]}], 
                 Line[{
                   Offset[{1.5, 0}, {13., -0.003480556679879801}], 
                   Offset[{-1.5, 0}, {13., -0.003480556679879801}]}]}, {
                 
                 Line[{{14., 0.11450939836489968`}, {
                  14., -0.012002814974467028`}}], 
                 Line[{
                   Offset[{1.5, 0}, {14., 0.11450939836489968`}], 
                   Offset[{-1.5, 0}, {14., 0.11450939836489968`}]}], 
                 Line[{
                   Offset[{1.5, 0}, {14., -0.012002814974467028`}], 
                   Offset[{-1.5, 0}, {14., -0.012002814974467028`}]}]}, {
                 
                 Line[{{15., 0.05739404145597925}, {15., 
                  0.0018207255979658214`}}], 
                 Line[{
                   Offset[{1.5, 0}, {15., 0.05739404145597925}], 
                   Offset[{-1.5, 0}, {15., 0.05739404145597925}]}], 
                 Line[{
                   Offset[{1.5, 0}, {15., 0.0018207255979658214`}], 
                   Offset[{-1.5, 0}, {15., 0.0018207255979658214`}]}]}, {
                 
                 Line[{{16., 0.05234179020735946}, {16., 
                  0.022967986826789466`}}], 
                 Line[{
                   Offset[{1.5, 0}, {16., 0.05234179020735946}], 
                   Offset[{-1.5, 0}, {16., 0.05234179020735946}]}], 
                 Line[{
                   Offset[{1.5, 0}, {16., 0.022967986826789466`}], 
                   Offset[{-1.5, 0}, {16., 0.022967986826789466`}]}]}}}}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]]}, {}}, {{
              Directive[
               AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
               Large, FontFamily -> "Europa-Light", FontSize -> 18, 
               GrayLevel[0]]}, {}}}, {{}, {}}}, {{{{}, {}, 
             Annotation[{
               Directive[
                Opacity[1.], 
                AbsoluteThickness[1.6], 
                GrayLevel[0]], 
               Line[CompressedData["
1:eJwVkGs01AkYxiddUDvl2gxGchkxGf/psrZW9b4uxbh0OlHuHfd1Ns7SjSxr
/pOacU1Gw0pCDpUSCrnMEIXSCrGhzUrrdFEZMTTTxtoPz3k+/J4vv8c4+JeD
YSoUCsV9Kf+3tsjqIIUiA5NXfM/PjC4opJ+2G9KSgeGGmYKVtC5gFT7kVDFl
sNeC6quv2QX214+sC3SVAcT1cpxXdkF0S9aTFrEMfKQX99V+7ISeydl9Sexp
CGMeax+QdoLQUWK74PsZ+oYlKebBnbAgd2f+WzsL3u423ctudcB4sUd/RJ8C
qtOizEZsHsL5Kf/jW8QLcEXrcaLrVDusriMGzxQvw2cDIb/63G+DR/SrAeWs
Fbgt+kG8MuM+RLrRx+KEq3B7Gkc0wWuFtNKkpyp66hh+qoU5MSoFWs7rFNHl
NZh1Ltvh6NtmEHhy9/TPUXFF+KrVmZwmaCzovR1qp4EJZG6cTkwDlMQm7q6P
0cRohUhy+F09YOE1DrVAC1WuWdsRvDpgPHfzbflbG8dUVxmFatTCz1+meV1U
XaSvURBHe+7A/GaNUfah9VjlbN+2XlADP1bcLBKLaZjX5fZqv281TGm5BB5u
oyOtuv2NikcVjKcHHj6mqo97LtWM6GVWgtNULHfCxgAH8npPTt27Ce9D1I7f
TWLgNm/Ph3v/ugGOZjQVQZsh6swWlPmbXweNP8wzq6Y2YEpDQvby8nKgPvCy
MDDYiLLfooKNjcug+yJDmHJnI05aqq/r6S6F0IyifIWzMb6MyLfbdOEqMNYG
ddEmjVHKLHZ+cqAEqMtLTgTxTXCNftKYz45iMCSNdvmYm+LzHEvFfoMiUGP6
1x3sNMVYrl/vU1YhsHfr3Y4NMEPau2GeU2ABxIxqtbtQmKjatPeeJCMfPs2k
H+LmMVHp22d0QJ4H+4iOfC7bHCWShPH7CbkgmbH9Ot9jjpcXnWx3fLsIUVZb
R/rCNqGFSWpU7K0c2PUpdMBH3QKn1Qop2t6iJX+6O7XEAo1HDPq2srNhEy81
ru0HS1Rqelvd0bsAlmE7W5gjlnjTj67ttCwLQqURyXdjWCgmPT5k0zJBWjQQ
Oq27GaP8/EoqzNJh5triPFG/GZU0V9X9vqkQzKxQz3e3wprB/mzqIyHIWCKb
GpkV0lTPPZjgCKC+9OsruZCNQm5Gv6j7LPg4mqLtBmtMTsvjsfjJoB8laLBu
tcbqS5rspq1nQGd1ZLW7F4FZDSatulQ+lDgkxst8CFxrqrPDSI0PnMRMB5E/
gZ/Y3lTWcj64yaoGh4IILND17nFQkHD2T7kiJJLAncearwgmSJgrSbKPJwns
6Mm1OiAlYdhW9KysgkDH0/Ne49EkRJwsLeBWEnhZ37RtfeTSvrI27EMVga7i
/kS3n0jQMhma31JH4OhKl7dNASS4qBkyJK0EPm6IT7rhQkLzQFnos0ECaUdt
wjvMlvjae+xTQwQGlXtJ1m0kYcjp0Rz9BYH2r20DfQ1ImG2cFB4ZIzBEPCaY
0SSBXcy59e49gUgt9/x+kQfNI3an0j8SeLxhclGo5IGLjgcQMgIXIhizL+U8
CBec7DshJ5BiPVSb9oEHs63n8mlfCMy4Xcn/5w0P+MrckEYlgee/U8vd85oH
GtuvWwV8I1BnZ+rn30d5UBjVKF9cXPrP7kXO3DAP/gPufC2p
                "]]}, "Charting`Private`Tag$101963#1"]}}, {}}}, {
         AspectRatio -> 1, DisplayFunction -> Identity, DisplayFunction -> 
          Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> 
          GrayLevel[0], 
          BaseStyle -> {
           FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
            "Europa-Light", FontSize -> 18}, DisplayFunction :> Identity, 
          Frame -> {{True, False}, {True, False}}, 
          FrameLabel -> {{
            "p(going extinct at \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)", None}, {
            "transfer \!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)", None}}, 
          FrameStyle -> Directive[
            Thickness[Medium]], FrameTicks -> {{{{0, 0, {0, 0.02}}, {
               Rational[1, 10], 0.1, {0, 0.02}}, {
               Rational[1, 5], 0.2, {0, 0.02}}, {
               Rational[3, 10], 0.3, {0, 0.02}}, {
               Rational[2, 5], 0.4, {0, 0.02}}}, 
             None}, {{{0, 0, {0, 0.02}}, {5, 5, {0, 0.02}}, {
              10, 10, {0, 0.02}}, {15, 15, {0, 0.02}}, {20, 20, {0, 0.02}}}, 
             None}}, FrameTicksStyle -> GrayLevel[0], 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImagePadding -> {{65, 10}, {65, 10}}, 
          ImageSize -> 400, LabelStyle -> {
            GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
          Method -> {
           "OptimizePlotMarkers" -> True, 
            "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& )}}, PlotLabel -> "all together", 
          PlotRange -> {{0, 16.}, {0, 0.41860465116279066`}}, 
          PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.05], 
             Scaled[0.05]}, {
             Scaled[0.05], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}, TicksStyle -> 
          GrayLevel[0]}], 
        Placed[
         Unevaluated[
          SwatchLegend[{
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.237736, 0.340215, 0.575113]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.72987, 0.239399, 0.230961]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.237736, 0.340215, 0.575113]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2548481111111111, 0.35357422222222223`, 0.5389008888888889]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.2704347777777778, 0.43505644444444447`, 0.35968022222222223`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.33311066666666667`, 0.5032283333333333, 0.26154733333333335`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.5090482222222222, 0.6077703333333333, 0.25180933333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7294032222222222, 0.7249631111111111, 0.2860526666666667]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.8562609999999999, 0.742794, 0.31908333333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.8272665555555555, 0.5658831111111111, 0.3086672222222222]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[
             0.7390852222222222, 0.2704317777777778, 0.23901633333333333`]], 
            Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             RGBColor[0.72987, 0.239399, 0.230961]]}, {1, 2, 3, 4, 5, 6, 7, 8,
            9, 10}, LegendMarkers -> Automatic, LabelStyle -> {
             GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
           LegendLayout -> {"Row", 2}]], 
         Scaled[{0.7, 0.8}], Identity]]& ],
      AutoDelete->True,
      Editable->True,
      SelectWithContents->False,
      Selectable->True]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.771953171054459*^9, 3.7719532383594236`*^9}, {
   3.771953274785238*^9, 3.771953284224905*^9}, {3.771953316146496*^9, 
   3.7719533526168623`*^9}, {3.7719535054911857`*^9, 3.771953516803179*^9}, 
   3.771953547381173*^9, 3.7719583678152256`*^9, {3.7719585826475344`*^9, 
   3.77195862808068*^9}, {3.771958720543458*^9, 3.771958779035852*^9}, {
   3.77195880972058*^9, 3.771958813365147*^9}, 3.771958857740554*^9, {
   3.771959395099006*^9, 3.771959401276368*^9}, {3.771959440259683*^9, 
   3.7719595138117695`*^9}, {3.7719595463144608`*^9, 3.771959550837265*^9}, {
   3.7723828992654295`*^9, 3.7723829184305477`*^9}, 3.7723829673750997`*^9, 
   3.772482579853354*^9, {3.7754718157189064`*^9, 3.775471859343831*^9}, 
   3.7822524215727024`*^9, {3.7822526277779455`*^9, 3.78225266424542*^9}, {
   3.7834624189639473`*^9, 3.78346246137451*^9}, 3.7834627259646454`*^9, 
   3.7834627961015234`*^9, {3.7834628293146634`*^9, 3.7834628350783796`*^9}, 
   3.78570122163017*^9, 3.790008364990057*^9, 3.7900085119256725`*^9, 
   3.7900086233451543`*^9, 3.790342824469675*^9, 3.7903552193891563`*^9, 
   3.7904446989971046`*^9, 3.7904475428909817`*^9, 3.7905430614009123`*^9, 
   3.790627747564488*^9},
 CellLabel->
  "Out[577]=",ExpressionUUID->"240d421d-ea2f-426f-bd22-5abc0d178a94"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7905433089106913`*^9, 3.790543347004692*^9}, 
   3.790627778900955*^9},
 CellLabel->
  "In[581]:=",ExpressionUUID->"40cb34a2-29e6-404b-a363-2b8a5704e02d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Multiplicity of ASVs", "Subsection",
 CellChangeTimes->{{3.7857000275337086`*^9, 
  3.785700032531242*^9}},ExpressionUUID->"38eae86d-a1fd-4c3b-be21-\
f058799e7377"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"presentAtAllPastT0", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"#", ",", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", 
             RowBox[{"2", ";;", 
              RowBox[{"-", "1"}]}]}], "]"}], "]"}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{"x", ">", " ", "0.00"}]}]}], "]"}], "&"}]}], "]"}], "&"}], 
    "/@", 
    RowBox[{"(", "totalExpDataCompositionNoTime", ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"presentAtAllPastT0", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "/", 
        RowBox[{"Total", "@", 
         RowBox[{"presentAtAllPastT0", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
      RowBox[{"presentAtAllPastT0", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "20"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"presentAtAllFinal", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"#", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", 
            RowBox[{"-", "1"}]}], "]"}], "]"}], ">", " ", "0.00"}], "&"}]}], 
      "]"}], "&"}], "/@", 
    RowBox[{"(", "totalExpDataCompositionNoTime", ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"multiplicityAss", "=", 
   RowBox[{"Association", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2", ",", "1"}], "]"}], "]"}], "->", 
       RowBox[{"Length", "@", "#"}]}], "&"}], "/@", 
     RowBox[{"GatherBy", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ConstantArray", "[", 
                 RowBox[{"i", ",", 
                  RowBox[{"Length", "@", "#"}]}], "]"}], ",", "#"}], "}"}], 
              "]"}], "&"}], "@", 
            RowBox[{"presentAtAllPastT0", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", "1"}], 
        "]"}], ",", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"multiplicityAssF", "=", 
   RowBox[{"Association", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2", ",", "1"}], "]"}], "]"}], "->", 
       RowBox[{"Length", "@", "#"}]}], "&"}], "/@", 
     RowBox[{"GatherBy", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ConstantArray", "[", 
                 RowBox[{"i", ",", 
                  RowBox[{"Length", "@", "#"}]}], "]"}], ",", "#"}], "}"}], 
              "]"}], "&"}], "@", 
            RowBox[{"presentAtAllFinal", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", "1"}], 
        "]"}], ",", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"multiplicityAss2", "=", 
   RowBox[{"Association", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "->", 
       RowBox[{"Length", "@", "#"}]}], "&"}], "/@", 
     RowBox[{"GatherBy", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"presentAtAllFinal", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "10"}], "]"}], "]"}], ",", "1"}], "]"}], ",", 
       "First"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7822541272549725`*^9, 3.7822542854027214`*^9}, {
   3.7824861085841675`*^9, 3.782486120061284*^9}, {3.782507911332654*^9, 
   3.7825079785421314`*^9}, 3.7825080410064135`*^9, {3.782508969418996*^9, 
   3.7825089779635963`*^9}, {3.7825090272113857`*^9, 3.7825090552422*^9}, {
   3.782509127842473*^9, 3.7825091571301703`*^9}, {3.7825091973536158`*^9, 
   3.782509300057167*^9}, 3.783357199425985*^9, {3.7833573313451085`*^9, 
   3.7833574212176313`*^9}, {3.7833574579685793`*^9, 3.783357465855153*^9}, {
   3.7833576730406475`*^9, 3.7833576803247766`*^9}, {3.785700537558521*^9, 
   3.7857005482720933`*^9}, {3.785701257773718*^9, 3.7857012783492618`*^9}, {
   3.790010072206343*^9, 3.7900100979158106`*^9}, {3.790342928658391*^9, 
   3.790342932840957*^9}, {3.790343306467298*^9, 3.7903433144499407`*^9}, {
   3.790357137913005*^9, 3.790357143675971*^9}, 3.7903576028307943`*^9, {
   3.7903577069393935`*^9, 3.7903577181703205`*^9}, 3.790357820087796*^9},
 CellLabel->
  "In[582]:=",ExpressionUUID->"ba8159c6-5fcd-411e-9914-9b98dfa0c7e4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"proportionOfASVsin1or2mesocosms", "=", 
  RowBox[{"1.", 
   RowBox[{
    RowBox[{"Total", "@", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Sort", "@", 
        RowBox[{"Tally", "[", 
         RowBox[{"Values", "@", "multiplicityAssF"}], "]"}]}], ")"}], "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", "2"}], ",", "2"}], "]"}], "]"}]}], "/", 
    RowBox[{"Total", "@", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Sort", "@", 
        RowBox[{"Tally", "[", 
         RowBox[{"Values", "@", "multiplicityAssF"}], "]"}]}], ")"}], "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.790357770587166*^9, 3.790357829100669*^9}, {
   3.7904448283337765`*^9, 3.7904448648505135`*^9}, 3.7904450534779477`*^9, {
   3.790445162300146*^9, 3.790445208370699*^9}, {3.790445246365818*^9, 
   3.790445246492882*^9}, {3.790445322702332*^9, 3.790445327478307*^9}, {
   3.790447523103799*^9, 3.7904475356937094`*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"ca338cbc-30eb-4ff9-bc00-22d34836677e"],

Cell[BoxData["0.6554054054054054`"], "Output",
 CellChangeTimes->{{3.790444831259865*^9, 3.790444865172741*^9}, 
   3.790445053777159*^9, {3.7904451667459774`*^9, 3.7904452085718503`*^9}, 
   3.7904452474805956`*^9, 3.790445327702449*^9, 3.790447537417823*^9},
 CellLabel->
  "Out[251]=",ExpressionUUID->"bc78a6ba-fc20-4e16-b0cc-b9b2f9486b4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"jitterPlot", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", "=", 
          RowBox[{"RandomReal", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.2"}], ",", "0.2"}], "}"}], ",", 
            RowBox[{"Length", "@", 
             RowBox[{"#", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], "}"}], ",", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"i", "+", 
              RowBox[{"a", "[", 
               RowBox[{"[", "j", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "1", ",", 
               RowBox[{"Length", "@", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "@", "#"}]}], "}"}]}], "]"}], "&"}], "@", 
   "x"}]}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"BarChart", "[", 
        RowBox[{"#", ",", 
         RowBox[{"ChartStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"Gray", ",", 
            RowBox[{"EdgeForm", "[", "]"}]}], "]"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
         RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
         RowBox[{"BarSpacing", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"None", ",", "Large"}], "}"}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", "\"\<number of ASVs\>\""}], ",", 
         RowBox[{"ChartLabels", "\[Rule]", 
          RowBox[{"Range", "@", "10"}]}], ",", 
         RowBox[{"AspectRatio", "\[Rule]", "0.9"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "300"}], ",", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<multiplicity\>\"", ",", "\"\<proportion\>\""}], 
           "}"}]}], ",", 
         RowBox[{"AspectRatio", "\[Rule]", 
          RowBox[{"1", "/", "1.7"}]}]}], "]"}], "&"}], "@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "/", 
          RowBox[{"Total", "@", "#"}]}], "&"}], "@", 
        RowBox[{"Rest", "@", 
         RowBox[{"BinCounts", "@", 
          RowBox[{"Values", "@", "multiplicityAss2"}]}]}]}], ")"}]}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"jitterPlot", "@", 
            RowBox[{
             RowBox[{"SortBy", "[", 
              RowBox[{"#", ",", "First"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}], "&"}], 
          "@", 
          RowBox[{"GatherBy", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Transpose", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"multiplicityAss2", "/@", 
                    RowBox[{"presentAtAllFinal", "[", 
                    RowBox[{"[", 
                    RowBox[{"#", ",", "All", ",", "1"}], "]"}], "]"}]}], ",", 
                   RowBox[{"presentAtAllFinal", "[", 
                    RowBox[{"[", 
                    RowBox[{"#", ",", "All", ",", "2", ",", 
                    RowBox[{"-", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], "&"}],
                "/@", 
               RowBox[{"Range", "@", "10"}]}], ",", "1"}], "]"}], ",", 
            "First"}], "]"}]}], ",", 
         RowBox[{"PlotMarkers", "\[Rule]", 
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Gray", ",", 
             RowBox[{"Opacity", "[", "0.6", "]"}], ",", 
             RowBox[{"Circle", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", 
               RowBox[{"Offset", "[", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "3"}], "}"}], "]"}]}], "]"}]}], "}"}], 
           "]"}]}], ",", 
         RowBox[{"FrameTicks", "\[Rule]", 
          RowBox[{"myticksfull", "[", 
           RowBox[{
           "0", ",", "0.5", ",", "3", ",", "1", ",", "10", ",", "10"}], 
           "]"}]}], ",", 
         RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<multiplicity\>\"", ",", "\"\<mean abundance\>\""}], 
           "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0.5", ",", "10.5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0.405"}], "}"}]}], "}"}]}], ",", 
         RowBox[{"AspectRatio", "\[Rule]", "0.9"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "300"}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", "\"\<abundance of ASVs\>\""}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"ListPlot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Around", "[", 
              RowBox[{
               RowBox[{"Mean", "@", "#"}], ",", 
               RowBox[{"StandardDeviation", "@", "#"}]}], "]"}], "&"}], "/@", 
            RowBox[{
             RowBox[{"SortBy", "[", 
              RowBox[{"#", ",", "First"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}], "&"}], 
          "@", 
          RowBox[{"GatherBy", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Transpose", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"multiplicityAss2", "/@", 
                    RowBox[{"presentAtAllFinal", "[", 
                    RowBox[{"[", 
                    RowBox[{"#", ",", "All", ",", "1"}], "]"}], "]"}]}], ",", 
                   RowBox[{"presentAtAllFinal", "[", 
                    RowBox[{"[", 
                    RowBox[{"#", ",", "All", ",", "2", ",", 
                    RowBox[{"-", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], "&"}],
                "/@", 
               RowBox[{"Range", "@", "10"}]}], ",", "1"}], "]"}], ",", 
            "First"}], "]"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Darker", "@", 
             RowBox[{"Darker", "@", "Gray"}]}], ",", 
            RowBox[{"PointSize", "\[Rule]", "0.045"}]}], "}"}]}]}], "]"}]}], 
      "]"}], "}"}]}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7903428720971985`*^9, 3.790342875627578*^9}, {
   3.79034297334657*^9, 3.7903430114170036`*^9}, {3.790343041981182*^9, 
   3.790343054784548*^9}, {3.790343089117055*^9, 3.7903431065391054`*^9}, {
   3.790343173879117*^9, 3.7903432404552307`*^9}, 3.790357152165262*^9, {
   3.7903586909676576`*^9, 3.7903587657107224`*^9}, {3.790359993025283*^9, 
   3.7903600301360674`*^9}, {3.7903626066647167`*^9, 3.7903626077647753`*^9}, 
   3.790362638861642*^9, {3.790444787189535*^9, 3.7904447883763685`*^9}, {
   3.790446882263506*^9, 3.7904468831515665`*^9}},
 CellLabel->
  "In[588]:=",ExpressionUUID->"650ac7eb-2d69-4d77-8a89-d9f23f9420d9"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{
       {Opacity[0], PointBox[{{0.3, 0.}, {10.5, 0.}}]}, {{}, 
        {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
         Thickness[Small]}], 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{0.5, 0.}, {1.5, 0.44594594594594594`}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{69.41176470588235, 
                91.47058823529412}, {-117.99999999999999`, 
                84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[33, 74]]& ,
             TagBoxNote->"33/74"],
            StyleBox[
             FractionBox["33", "74"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[33, 74], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{1.5, 0.}, {2.5, 0.20945945945945946`}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{91.47058823529412, 
                113.52941176470588`}, {-10.61363636363636, 
                84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[31, 148]]& ,
             TagBoxNote->"31/148"],
            StyleBox[
             FractionBox["31", "148"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[31, 148], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{2.5, 0.}, {3.5, 0.14189189189189189`}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{113.52941176470588`, 135.58823529411765`}, {
                20.068181818181827`, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[21, 148]]& ,
             TagBoxNote->"21/148"],
            StyleBox[
             FractionBox["21", "148"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[21, 148], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{3.5, 0.}, {4.5, 0.08108108108108109}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{135.58823529411765`, 157.64705882352942`}, {
                47.681818181818194`, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[3, 37]]& ,
             TagBoxNote->"3/37"],
            StyleBox[
             FractionBox["3", "37"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[3, 37], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{4.5, 0.}, {5.5, 0.02702702702702703}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{157.64705882352942`, 179.7058823529412}, {
                72.22727272727275, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[1, 37]]& ,
             TagBoxNote->"1/37"],
            StyleBox[
             FractionBox["1", "37"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[1, 37], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{5.5, 0.}, {6.5, 0.02702702702702703}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{179.7058823529412, 201.76470588235293`}, {
                72.22727272727275, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[1, 37]]& ,
             TagBoxNote->"1/37"],
            StyleBox[
             FractionBox["1", "37"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[1, 37], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{6.5, 0.}, {7.5, 0.02027027027027027}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{201.76470588235293`, 223.8235294117647}, {
                75.29545454545456, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[3, 148]]& ,
             TagBoxNote->"3/148"],
            StyleBox[
             FractionBox["3", "148"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[3, 148], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{7.5, 0.}, {8.5, 0.02027027027027027}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{223.8235294117647, 245.88235294117646`}, {
                75.29545454545456, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[3, 148]]& ,
             TagBoxNote->"3/148"],
            StyleBox[
             FractionBox["3", "148"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[3, 148], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{8.5, 0.}, {9.5, 0.02027027027027027}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{245.88235294117646`, 267.94117647058823`}, {
                75.29545454545456, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[3, 148]]& ,
             TagBoxNote->"3/148"],
            StyleBox[
             FractionBox["3", "148"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[3, 148], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}, 
         {GrayLevel[0.5], EdgeForm[None], 
          TagBox[
           TooltipBox[
            TagBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                
                RectangleBox[{9.5, 0.}, {10.5, 0.006756756756756757}, 
                 "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{267.94117647058823`, 290.}, {
                81.4318181818182, 84.50000000000001}}],
              "DelayedMouseEffectStyle"],
             StatusArea[#, 
              Rational[1, 148]]& ,
             TagBoxNote->"1/148"],
            StyleBox[
             FractionBox["1", "148"], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}, 
             StripOnInput -> False]],
           Annotation[#, 
            Style[
             Rational[1, 148], {
              GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18}], 
            "Tooltip"]& ]}}, {}, {}}, {}, {}, {}, {}, {}},
      AspectRatio->0.9,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0.3, 0.},
      AxesStyle->GrayLevel[0],
      BaseStyle->{
       FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
        "Europa-Light", FontSize -> 18},
      CoordinatesToolOptions:>{"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )},
      DisplayFunction->Identity,
      Frame->{True, True, False, False},
      FrameLabel->{{
         FormBox["\"proportion\"", TraditionalForm], None}, {
         FormBox["\"multiplicity\"", TraditionalForm], None}},
      FrameStyle->Directive[
        Thickness[Medium]],
      FrameTicks->{{Automatic, Automatic}, {{{1., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {1., 
           FormBox["1", TraditionalForm], 0}, {2., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {2., 
           FormBox["2", TraditionalForm], 0}, {3., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {3., 
           FormBox["3", TraditionalForm], 0}, {4., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {4., 
           FormBox["4", TraditionalForm], 0}, {5., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {5., 
           FormBox["5", TraditionalForm], 0}, {6., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {6., 
           FormBox["6", TraditionalForm], 0}, {7., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {7., 
           FormBox["7", TraditionalForm], 0}, {8., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {8., 
           FormBox["8", TraditionalForm], 0}, {9., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {9., 
           FormBox["9", TraditionalForm], 0}, {10., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {10., 
           FormBox["10", TraditionalForm], 0}}, {{1., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {2., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {3., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {4., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {5., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {6., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {7., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {8., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {9., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {10., 
           FormBox[
            TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}},
      FrameTicksStyle->GrayLevel[0],
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{65, 10}, {65, 10}},
      ImageSize->300,
      LabelStyle->{
        GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
      PlotLabel->FormBox["\"number of ASVs\"", TraditionalForm],
      PlotRange->{{Full, Full}, {Full, Full}},
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{None, Automatic},
      TicksStyle->GrayLevel[0]]},
    {
     GraphicsBox[{{{}, {{
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.368417, 0.506779, 0.709798], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJxFj3kwnAcYh1cQaaK0FcSVuJIJCWOxEwQ/x64KcRRpIxRxj0mccSRItCSz
lq4zpVUziVZ1wsS4Yl2L1KSMSoWUFQnSuvbbZb/9xFEpqT920j+eP555n3fe
eQ3CE/yi5Gk0mssecnvs28M34ZfhuHgSUjmfyaOGzRitnzUdPyxFzrg24gcT
8Zh1a5NlLsWPPBXRRedrOB1VtBLcTUDPY8Qr85U5xobdTVOnCLCFdm1z2Voo
qkoptNilcKhNWMn4+gIOJswq5JeKEDV0WMNR9za4b5UmE/rEMKjk9vHVPZEV
5amx4E7K9k3wgcBqiNux13culXSySmE+LqhriCHR+wplbo+YOOEXt7qpSCBt
+bmw1OgBeIvaf6cdX8M+e69UX6cKPGbohE2/o9AgmpILjKxD78WBEm8VCRgc
pfwY/29gd2r+Jx5BIbPaqN1ti4EKs0/9c4dJ6D4/S9aWVOJokFh1S57CdstJ
Nl/HFhYJCvTfqikkWb1c0mdmIoOX3J+fQeCLQtuDM03lSFqPK2b0iHDDoLhG
EN4PQbul9VCrFPTbljN/5MbgwBVmYXi5GDtlAWoP9e2gIGi+Y+QrlbkpBEVX
hdU8KSoKf91yHHPHlYfOqtwOCr75npvNW3ScDy9e7Z4SIbGa0g9Tu4Xi7W5B
64oYGu2Rb1w3NEHflcuKbiGw36wkdCW2BE0aJo2DHClKa+wZhUdswBRsMwT+
FM5tZE45E/ZIjUrf2WwkcfxeVb2uvw9GeYqKrk4EdHmtORdupmOnVj5YeIDE
Gb1yvlfwSfQxxpTqs0nkGduaX04xh8jLI1drbgXF3/XvH/BlITReK266QwJF
osuB0dwGX23OeZ/XEqhZV0VG8O/inKHQ4kkr8b5vvOvj4TooRcT0g7/YE264
zhnhq/wuxP3cQ/YKIWGwrEpqUp8Uyu7bYJCmmmVMp5BxY0CdFZsP+iPd0Xf1
K9Dns09bHAtE750PXco51Pue0znaVhRGYuZedNpkTBDYnm2KWv/8/4/yDy+c
5hZEEKpLvO1YLrDKtcljpUrwcu6aZlo3F3XMUR+FIIlsbgjlzx3n/OfF6BkY
+0QwfR/bNZa71qpr0HwzvWuZ3IDXIUf7Ch2kiJ63oRW1dmFguOt7rykKRidU
zpZy68A94vpM40sShF6EYQkzDwHqWG95SsJkRq3nRUMKlhsqCtg6UqhdF0+t
jzVi/ivvRYccClYZ9AIrzafQ/Pdqspv6Kv40/rlx60w6+IOhfk8MKXjQlLMh
dwkbCzl5i9EEloyFXHeeGYY/lv+2li2B8mbOZa21RPgRE6yCZyQ+av8s0KzM
EpXLTcO0CULmySBH4k+VzZJofbsUEtBZiUt1sXFNNymZs/Efc80Dxw==
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.880722, 0.611041, 0.142051], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJw1kms023cYx39/PfTQDcNoj8uyVl1qrEppumbPbzHakRUZS211TSPSJqhW
mBjalA7LMF2nLt0kQVAct6FsdVg6rTR1zFQPx/2M1roex05dk//+L7YXn1fP
OZ/vc3s7LonN24UQep+CoDCgWOKluxwY14HVElNqXBEOjhNrsVZjCNurM5eN
2tOgQKkZ3NzSw3PDhbrDjA5IFNPr7ichnONnY3ix+1vgrTpI8jwI3BMwP1zZ
lAkii4zevlgC7zVX7/1UdwtCKtx+ShaREF4Rpz47J4fcPGZrgpCErXaXr36x
dYWTgvUIG7oOyjcFmZWLAmDpq1rdPybwdp7Dn9oxJnQeTTFd2UDYMyYyQrkd
A3cK6a3GdQhbv+XRG2b9NeDWjEaxjISgFR8iaJUNu2dDbe6SCHfdXqv1iBYD
jVhb+GEK4awpK40wLAaiEirdLrMpX+6R6cdSDhRY7FMM8vWgKw2zbKYFwsso
cydfdx34NTSajF6TQFbjDq9oFGGR7XeC5UEZFEfJxCwt5U8LJpo/SYR1o8Dq
c04IKy84dM6IxeC6rWIXakmoeyERcu5fhxsGv7tkKBAu46qeIPpFGFU9VQeM
6KAjp4UbEVQDx50sp4/GIrzgXROuuFIPO6vO3nYjCNMdSxfP3+QDi9XlXFVO
ghdtIlWyHgYp2e1XZZN6GJpg1RjZxIM0Wcwsn9LBDMOw+/QXIdAXtO46aUhg
l6fml8/EFsMHZvzybAmBJxe/XB1bY4BQ9OsFO8pn3PK3Na+bDV4mPoIhqr+/
7nlF+trnwPIlBteJmudZAyeUMMoG2sm8HtVnBHZN8rx6LToF0meVM86HCTx1
Wlc8HuAH3h/5vysX6OHNguu0/tslcCu9ixZ4Rw/79FudB/JzYW6PRqHcr/uv
Xg2cG+MmHgMkKOYsgqxe9UNc/qu21B8R9h0uZLY4ZEFwjJw/qtCBXXdHTngW
H0ZsDsqWzP7P40LZ8ZbP7z0nIZF1djf/SjmcsMV8W+of2PRc/9fnuEB6JZtK
evRQ8+gdjcOiGKKm7qqP9CPM8fR5KByuhs3QvqS2Jwi3zgezK19kwuzPTWYh
pgj3cSYOkQ/9oFC4FW1A7auo5xTHcrsWVIxdonE+gWs3NGVzsnPg/F7cg0kL
EjaitakJoXKIHywVvfEawsEnSlo0HypBvun6SBBJgm1RvypClg5DzjE4ifId
0kZU7O+vh2O0eTeVmLrHaEcaTx0LN1PGzkc26aFZtCfDP74NLErylwZWEBZs
/vF42loFGpm99Iw9CcfQg6qXOZeg8/vfpJZSAi85PvvmVDcDZrTFcveDOhhw
5I6oukKg4Z/68F6RHtabWDu1uWL4FxZOzCE=
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.560181, 0.691569, 0.194885], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJxFkWtMkwcYhUud3/d1OBkmhg0otzFE5LIIQ4bC+1ZsjQhsRZRWcQoMRFjG
xFJAqBAuhWCBCgWcGwzLbAAHOFLltjALYxOQ60DlUuTuZrh1IhhYcf3Bsh/P
j5P3JCfvOZYh0f5h22g0GujQ00HXkRSloArXKfzzZ8mTzodysPlDUsddJ/Bk
dM9m/nkhBNibZKv5JBY83idZNQgAKXHYv/EhiUVr/CumNkchb7C9PfQqiZc8
d2/mfqkE78iSj436qC2/ABrTNDT2dgbeTWg7UxgUDCseZW7CbAoTY5dvlC9J
gHpfkDVaxECmd7dvotoPTMveEz9jk5ibciMpW8yCXK6IetVDYVC/TPZJ6yDM
EfftYjpIDJQUlFr7CeGHiwazD5DEZffnlfS5oxACOcs5vgzcjIuwNFUKYdHW
sarNnIE2TvOZEWYnoEgtn6fz/vf31svGU1kk7jbnuxUvSKGrblJrkkFt3QOB
MRPkstFCIGOqK/Ivwyjodh6e2lVI4OuJ/XY1IU4w0euaH+VMovH0F3esVeGw
axvrTD2TgWkDL867pSeDqNEt9nY4gRa3lq6lsWvhb/GkKrmPwChteK371a+B
s/rcpeEihU75xRcWL5eDT9vvO4NdGVg+Y2xgayiCSr+SUoN+CvXlehb4aTB8
wAvzKn6bREXGQduaLCkU5ND1dkYS6GDKJCW8VDBj36xT9ZM4OiPSDL70BRPP
zZ2ECQOdLZ7GJq65QJzRlZamOQrfHT5H+7XnJ7B/WtVqNU4iq42jVITVgBrK
Eo6n6P7z1cTseOUOGDqkyEkiUOGfpq9fVA6KcO8KriOFnd9spLS2KOCscIk+
9yG1lecBDXtps1NCCksvhHKWn4TCvZFHqq5xAo/d+zxzTVsOJ2dGnmVtkPh9
UhDX6s11aL780vtON4H36VKrHxsGYFXoEz+r68vdMqPMyaoCCtP7+NXFFNJu
q1s21J9ByUpHjek1Asf8tNLHHC8QBHjRB1sJfCNYnwhM5QKxndevvUniV+0O
33m5JoOP1sFMKqbQTZ3BrCUzwDzlnUOdBgwUtK8YdUxfgmHO3T3p+QTG82s8
Rz1roWLshIeznMCDDgt7rBd9IXXMkXVgRdfngDIurJ0L4ijHkbLV//R1aKrU
KwzWUGhfqvXLcxeB3K6ZN91M4fykhvltzClQTu/1YhtR+ItM+NuRU4UQcJZz
XHyLQlnmkvzcR95Qadxr/88oha7Vbz1g6cVAbny9fGg/iey2pLBWFQeyrUWD
Ig2BgnzmI64hC/j7Eg458Bgoa3LKq6aqwDh6ASJeEBhzLE2lt3QasoQRyqwu
3b71XL5DwWFg7Th9ZHKaxCFrRe3rA4HwL6iLwsM=
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.922526, 0.385626, 0.209179], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.922526, 0.385626, 0.209179], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJxFkW1Qy3EcwCeNhfv/flEnx+bm3F50dZdcIer7jStGo1Z5SI3KahdZam5n
G46/51M3kqt0ZDV6siNRyXmqJMZIcX/ZYWJuF5WKHCKvvPjcfV583n3EKWq5
cjyPxwsYY9wYbv9cPNghNzPINFt2dK+rBJWivtl/HMWUAFZt0+dAtfKcfnUi
RS/nUtbjTATo9PZhHY/gNeeT9LAVDXBVOBqSVE9wqLJfu6XMCEtc6ebfOoKK
jvXt7mV7wXrbkZspI+gVehXPFh+CqUktsTc3Eey603PDJk2AN9XslLxmBrVN
siRB6XmYFMiLullPsTHS8ajkkgFEjuqN37MZTAwUuWL8T0CrnIucX0JwVKsS
z6pLA2c5t1CgoFjhEz+/6+s+KH9+1CThE9RcmGhMTOEga6juweVHDO557WXd
FpcFldPPf1syTDCsoU6dG3IQOsOiCj/0MViY/iVn2spA8Bb2VlwvJsiaI44I
NK2g6qzSv4yhWNMUMcPiboKgSrsxTUAxo2hBbZYmCoqnFxQYDARHZAPZU4YT
IITX4MfrYrC7Z/dA56A/PDab3qeNEvwqDXYXrlWBZvbgH7OJwUVz83syTmuh
SnrMlmn73/cV7n/Y5iLoMPgObJUUQdZF+St7CEGe2X7rpz0aovulrtECgtJv
ei7c5QfBK4t947QUfcRnnx7LqwPBTyN/D8vgTGmbTd6ngc2JkvainRRTu6sc
R15EAjHtF/R4EjQW3Z3QEh0EH1vX3m8/QXF7q3/JsmA1KG/0y0V8ihs/8h98
WrMLDvnq5rh5Uhz6s0MwXJ4BLBdWI2mkyHc1hQbVKqE69UD8iIyi8XCcQBSa
AqVc9o/GDRRzHlvGnwpogWX1m7iDmQz2vhsQnskOhpHFM6YxbxmUiLydNbJk
+Jza2THzNEVVwvYP4WQbTKXJk/NnUUxYZeVk8WqoWG+VsmoG9Xme4objOij9
pHjr4zH296TQGuMZDr2xyw1X2ih+ZndadK57MC/fTeG9m6Cq/d0zzpIOjSPJ
uc4kiqxbt59y7in4datcLwGKtR4t7Irml/AXi5xatA==
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.528488, 0.470624, 0.701351], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.528488, 0.470624, 0.701351], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJwBVQGq/iFib1JlAwAAABQAAAABAAAAAgAAAOH83UQV5BNA8QFP1x4icj8R
EP6ld+kTQA8QjI9eLa0/Ipi2c8BtE0D44ApacquOPznVVerjuRRAG2OKvuxs
pz8Sp2kE9k8TQHudI7dG+EU/RtjiG9bKFECYZ+5zE0pCP3xEFIRWtBNAM4Cd
qLUbnz9q7rQ4MIYTQM0bWTg6Drg/DiawErvvE0BTeqKXV82sP/lfopGNQhNA
Nx2Uvk1caD/5Ma32aDwTQAXquz01snU/Fd1FSG77E0Bl03ptVhezP4TMUZz/
7hNAKV4JGx5Ehz/KtDvnBwAUQDst7Sck7k0/5ZuYbO+fFEA2rQTAQQGCPyua
uE1UPhNAZ8H+q9lk1z+XnHz5lJUTQAOO1ufYlYo/GZOiW0/GE0DCJGPQqLdA
PyA2Xi+/HxRAsDsXZ0Aahz9M2QKqa2sUQM4c5zrd+6Q/hoqMKQ==
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.772079, 0.431554, 0.102387], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJwBlQFq/iFib1JlAwAAABgAAAABAAAAAgAAAOfLZzF0sRdAouS9GrYAtT96
0SQ6edsXQBTnQoMJm0U/6e/++iIJGECQtf2d0PlAP5T6gXLRhxhA66OJ4ljd
bz/1dG4rW5UYQAFap31X7aw/oF5Qd1iTF0CI6Tq14H05P7BPrtxtghdACNMT
P/cpgT9mynkPEeQXQMp9ocNgNUY/LT4inZn/F0Db5H3x1PMtPyCyeR+KaRhA
wtSRNhd4Qz8nPfrcbRQYQMDgA454hH0/wIFTeNmUGEDcTv2Q1kZTP5kXdSy6
2BdAkqI8NYwYSD91B3AHB/8XQPz0FiOVK3g/xpJY8mqAF0AxyFmyv9aVPyhx
R44fxBhAvFfYKv/KQz/2jyOnh1IYQOkV7046RUI/i9582NGqGEANgB6dZdN7
PwvBEoFPZBhACGCJaOvksD9gN1b9+NsXQM7DEmxxC2U/otM2IkB1GECIQ85i
jcetP21tCc83axdAWolv6p3Ocj/k/3up3HcYQEoADH0/ATo/qvWh/AB2GEBf
SUDisW5UP06Gr3c=
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.363898, 0.618501, 0.782349], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.363898, 0.618501, 0.782349], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJwBZQGa/iFib1JlAwAAABUAAAABAAAAAgAAAMSyDetCQRtAlvdZehwmRz+e
x6Q2AHEcQFiQ/Oy4dlk/ReYjyP2sHEDEbu1D3s2NP3q0ffqOoRtAC7XpmDWC
VT8U1qF6vMkbQOiUw/mSIHE/Stjsbrx7G0Dro4niWN1vP4zx0fOgqRtAX9qE
xYXXmT8wbR9lPYAcQNCdtu+xXZk/0ojErTAoHECzNENuelyMP5K7WWspNRxA
+E3xcgz1aj/xJGMFdWwcQAUZUVRfyIQ/hr2sJWmkG0CciiNgU+2PPxrSFtX/
GBxALuOkF+hJdj9+XyJPrSEcQNrrlnhb45M/fZFDYflyHEDzj7WwHHqrP5OW
cs7ndxtAFtQFc3W/UD+O9RZjY0YcQCye/U6POn0/2ID4kl9/G0Ad99/PMETO
Pw6ENe1oiBtAkIdUCB49Yj9hcsM64yIcQJ9pWRMa4IY/emCjBUdWHEBGWDUE
LpWoP8fcmnQ=
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[1, 0.75, 0], PointSize[Large], AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[1, 0.75, 0], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJwBlQFq/iFib1JlAwAAABgAAAABAAAAAgAAAFOTGYeEjB9AFwhxcS+xSD/j
u0hCTFQgQG/xN+ALl2A/s9tBT1MKIEDVwOS6z0laP7TgtQOuPyBA1cDkus9J
Wj/Dm6puS0AfQCYv7IdoHlM/vnbQJUk4IEC0kiI856PXP/vAShA1UiBA+rMo
iL4bOT9d9uL/yUgfQCn6862EKMo/ZWGDLwtmIECYZ+5zE0oyPz7MOcApux9A
9cuTu5SlmT95bFa1oEQfQJvlBY94iHI/Ueprn2auH0BcIWxw1LV7P589Xt9i
WR9AAKXdvvvdUD++YfgyxjQgQDyaIRkXK3E/TXfLzR4MIECbg0TAfrB9P+dA
PSIOXiBA3qBmdtdnSz/ZljafxmQfQOkV7046RWI/zKluN9MuIEDw4Yy43GWe
PyLMvsGvESBA7OHxHZtyJj87YoViBcUfQCoesIHuQFk/mbLiN2QIIEDIQVjF
CFB6Py7mpWKEcx9AHH/hxVxvtj8/l4weBMsfQF9JQOKxbkQ/8or6yDFHH0A4
AMmd74BzP+5LrAU=
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.647624, 0.37816, 0.614037], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.647624, 0.37816, 0.614037], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], CompressedData["
1:eJwBxQE6/iFib1JlAwAAABsAAAABAAAAAgAAAJjAwaTI3CFADO9doTgXuj+N
d6NcLkYiQCIhhEEmS5c/wMMGQ0v/IUDVnDBAdLbTP2zdpZeHwSFAT2JKmFPc
vT+1bZprsawhQH9/yxV/Eo4/lgWcpHb8IUBHGqeJe72vP/AzTgMLFSJAe50j
t0b4NT9T6+GIs6AhQHudI7dG+FU/96psqqjfIUC/3UmHFeSkPzVzl19c+CFA
BBPbxfIvsj+LzTUo71IiQF7K5B19x3I/N+MTNM/UIUDcc3jStmXGP0r0i+qG
viFA4XP2eefZmD8k//LHtk4iQJJJcjXLC44/T7bMDIQTIkDEbGoh1VXVP+mE
/bUZWSJAwb1gcxF/rj+77XF1CbMhQK61E/fluH4/PGC+OwbJIUCUf5kaJROp
Py7xhU+O7yFA1Oopru+9wD87NHJfFg4iQP90+uBXgoE/cIAJwwJCIkDhkAaM
cunTPw8yw45/ySFAoh4Q1SGptz8CZodULj8iQDgtUo3i+oU/fkMoNVulIUDq
ic9DYDmyPyPBxGJbFyJAe44RIbiMOj+01Z8e+OMhQNBk1bfkl4U//O2IIykZ
IkBWyZ7yiS6xP/5fyKo=
             "]],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.571589, 0.586483, 0.], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[GeometricTransformationBox[InsetBox[
              FormBox[
               StyleBox[
                GraphicsBox[
                 {GrayLevel[0.5], Opacity[0.6], 
                  CircleBox[{0, 0}, Offset[{3., 3.}, {0., 0.}]]}],
                StripOnInput->False,
                GraphicsBoxOptions->{DefaultBaseStyle->Directive[
                  RGBColor[0.571589, 0.586483, 0.], 
                  AbsoluteThickness[1.6], FontColor -> GrayLevel[0], 
                  PointSize -> Large, FontFamily -> "Europa-Light", FontSize -> 
                  18]}],
               TraditionalForm], {0., 0.}], {{{10.14871062190732, 
             0.001978053030659822}}, {{9.945521046797262, 
             0.0008265668303593135}}, {{9.834426349575393, 
             0.01460658014462909}}, {{10.043928997160128`, 
             0.002830602400031894}}, {{10.027354860477537`, 
             0.0013711151736745886`}}, {{9.840509656036598, 
             0.0022795793808368264`}}, {{9.971171385682048, 
             0.0006969612489545581}}, {{10.0736927671564, 
             0.0022264086316150025`}}, {{9.859516247148916, 
             0.028358122576537994`}}, {{10.066324788171155`, 
             0.001757269996031971}}}],
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.922526, 0.385626, 0.209179], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.528488, 0.470624, 0.701351], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.363898, 0.618501, 0.782349], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[1, 0.75, 0], PointSize[Large], AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.647624, 0.37816, 0.614037], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.571589, 0.586483, 0.], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            
            FontColor->GrayLevel[
             0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.922526, 0.385626, 0.209179], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.528488, 0.470624, 0.701351], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.363898, 0.618501, 0.782349], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[1, 0.75, 0], PointSize[Large], AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.647624, 0.37816, 0.614037], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            FontColor->GrayLevel[0]]}, 
          {RGBColor[0.571589, 0.586483, 0.], PointSize[Large], 
           AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18,
            
            FontColor->GrayLevel[
             0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{{
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{1., -0.01960421635481068}, {1., 
               0.01850148223313485}}], 
              LineBox[{{1., 0.01850148223313485}, {1., 
               0.056607180821080384`}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{2., -0.007905543046951784}, {2., 
               0.015859822934459637`}}], 
              LineBox[{{2., 0.015859822934459637`}, {2., 
               0.03962518891587106}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{3., -0.032734374803364864`}, {3., 
               0.023203744920965698`}}], 
              LineBox[{{3., 0.023203744920965698`}, {3., 
               0.07914186464529627}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{4., -0.04782487488166945}, {4., 
               0.03600643327884878}}], 
              LineBox[{{4., 0.03600643327884878}, {4., 
               0.11983774143936701`}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{5., -0.039050427195072485`}, {5., 
               0.041958410273367455`}}], 
              LineBox[{{5., 0.041958410273367455`}, {5., 
               0.1229672477418074}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{6., -0.010696461689741574`}, {6., 
               0.013797480710285085`}}], 
              LineBox[{{6., 0.013797480710285085`}, {6., 
               0.038291423110311744`}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{7., -0.026838161349667024`}, {7., 
               0.023982578785592568`}}], 
              LineBox[{{7., 0.023982578785592568`}, {7., 
               0.07480331892085215}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{8., -0.05241067603805994}, {8., 
               0.031844699587244875`}}], 
              LineBox[{{8., 0.031844699587244875`}, {8., 
               0.1161000752125497}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{9., -0.019132915424855304`}, {9., 
               0.07815935099082143}}], 
              LineBox[{{9., 0.07815935099082143}, {9., 
               0.17545161740649817`}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{{}, {
              LineBox[{{10., -0.003261288075118914}, {10., 
               0.0056931259413331055`}}], 
              LineBox[{{10., 0.0056931259413331055`}, {10., 
               0.014647539957785125`}}]}},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}}, {
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{1., 0.056607180821080384`}, 
                 Offset[{3, 0}, {1., 0.056607180821080384`}]}, {{1., 
                 0.056607180821080384`}, 
                 Offset[{-3, 0}, {1., 0.056607180821080384`}]}, {{
                 1., -0.01960421635481068}, 
                 Offset[{3, 0}, {1., -0.01960421635481068}]}, {{
                 1., -0.01960421635481068}, 
                 Offset[{-3, 0}, {1., -0.01960421635481068}]}}], {{{1., 0.}, {
               0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{2., 0.03962518891587106}, 
                 Offset[{3, 0}, {2., 0.03962518891587106}]}, {{2., 
                 0.03962518891587106}, 
                 Offset[{-3, 0}, {2., 0.03962518891587106}]}, {{
                 2., -0.007905543046951784}, 
                 Offset[{3, 0}, {2., -0.007905543046951784}]}, {{
                 2., -0.007905543046951784}, 
                 Offset[{-3, 0}, {2., -0.007905543046951784}]}}], {{{1., 
               0.}, {0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{3., 0.07914186464529627}, 
                 Offset[{3, 0}, {3., 0.07914186464529627}]}, {{3., 
                 0.07914186464529627}, 
                 Offset[{-3, 0}, {3., 0.07914186464529627}]}, {{
                 3., -0.032734374803364864`}, 
                 Offset[{3, 0}, {3., -0.032734374803364864`}]}, {{
                 3., -0.032734374803364864`}, 
                 Offset[{-3, 0}, {3., -0.032734374803364864`}]}}], {{{1., 
               0.}, {0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{4., 0.11983774143936701`}, 
                 Offset[{3, 0}, {4., 0.11983774143936701`}]}, {{4., 
                 0.11983774143936701`}, 
                 Offset[{-3, 0}, {4., 0.11983774143936701`}]}, {{
                 4., -0.04782487488166945}, 
                 Offset[{3, 0}, {4., -0.04782487488166945}]}, {{
                 4., -0.04782487488166945}, 
                 Offset[{-3, 0}, {4., -0.04782487488166945}]}}], {{{1., 0.}, {
               0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{5., 0.1229672477418074}, 
                 Offset[{3, 0}, {5., 0.1229672477418074}]}, {{5., 
                 0.1229672477418074}, 
                 Offset[{-3, 0}, {5., 0.1229672477418074}]}, {{
                 5., -0.039050427195072485`}, 
                 Offset[{3, 0}, {5., -0.039050427195072485`}]}, {{
                 5., -0.039050427195072485`}, 
                 Offset[{-3, 0}, {5., -0.039050427195072485`}]}}], {{{1., 
               0.}, {0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{6., 0.038291423110311744`}, 
                 Offset[{3, 0}, {6., 0.038291423110311744`}]}, {{6., 
                 0.038291423110311744`}, 
                 Offset[{-3, 0}, {6., 0.038291423110311744`}]}, {{
                 6., -0.010696461689741574`}, 
                 Offset[{3, 0}, {6., -0.010696461689741574`}]}, {{
                 6., -0.010696461689741574`}, 
                 Offset[{-3, 0}, {6., -0.010696461689741574`}]}}], {{{1., 
               0.}, {0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{7., 0.07480331892085215}, 
                 Offset[{3, 0}, {7., 0.07480331892085215}]}, {{7., 
                 0.07480331892085215}, 
                 Offset[{-3, 0}, {7., 0.07480331892085215}]}, {{
                 7., -0.026838161349667024`}, 
                 Offset[{3, 0}, {7., -0.026838161349667024`}]}, {{
                 7., -0.026838161349667024`}, 
                 Offset[{-3, 0}, {7., -0.026838161349667024`}]}}], {{{1., 
               0.}, {0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{8., 0.1161000752125497}, 
                 Offset[{3, 0}, {8., 0.1161000752125497}]}, {{8., 
                 0.1161000752125497}, 
                 Offset[{-3, 0}, {8., 0.1161000752125497}]}, {{
                 8., -0.05241067603805994}, 
                 Offset[{3, 0}, {8., -0.05241067603805994}]}, {{
                 8., -0.05241067603805994}, 
                 Offset[{-3, 0}, {8., -0.05241067603805994}]}}], {{{1., 0.}, {
               0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{9., 0.17545161740649817`}, 
                 Offset[{3, 0}, {9., 0.17545161740649817`}]}, {{9., 
                 0.17545161740649817`}, 
                 Offset[{-3, 0}, {9., 0.17545161740649817`}]}, {{
                 9., -0.019132915424855304`}, 
                 Offset[{3, 0}, {9., -0.019132915424855304`}]}, {{
                 9., -0.019132915424855304`}, 
                 Offset[{-3, 0}, {9., -0.019132915424855304`}]}}], {{{1., 
               0.}, {0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}, 
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], 
           
           StyleBox[{
             GeometricTransformationBox[
              LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
             GeometricTransformationBox[
              LineBox[{{{10., 0.014647539957785125`}, 
                 Offset[{3, 0}, {10., 0.014647539957785125`}]}, {{10., 
                 0.014647539957785125`}, 
                 Offset[{-3, 0}, {10., 0.014647539957785125`}]}, {{
                 10., -0.003261288075118914}, 
                 Offset[{3, 0}, {10., -0.003261288075118914}]}, {{
                 10., -0.003261288075118914}, 
                 Offset[{-3, 0}, {10., -0.003261288075118914}]}}], {{{1., 
               0.}, {0., 1.}}, {0., 0.}}]},
            Antialiasing->False,
            FontFamily->"Europa-Light",
            FontSize->18]}}}, {
         {RGBColor[
          0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
          PointSize[0.045], AbsoluteThickness[1.6], 
          
          StyleBox[
           PointBox[{{1., 0.01850148223313485}, {2., 0.015859822934459637`}, {
            3., 0.023203744920965698`}, {4., 0.03600643327884878}, {5., 
            0.041958410273367455`}, {6., 0.013797480710285085`}, {7., 
            0.023982578785592568`}, {8., 0.031844699587244875`}, {9., 
            0.07815935099082143}, {10., 0.0056931259413331055`}}],
           FontFamily->"Europa-Light",
           FontSize->18]}, {
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18]}, {}}, {
          {RGBColor[
           0.22222222222222227`, 0.22222222222222227`, 0.22222222222222227`], 
           PointSize[0.045], AbsoluteThickness[1.6], 
           StyleBox[{},
            FontFamily->"Europa-Light",
            FontSize->18]}, {}}}, {{}, {}}}},
      AspectRatio->0.9,
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0.5, 0},
      AxesStyle->GrayLevel[0],
      BaseStyle->{
       FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
        "Europa-Light", FontSize -> 18},
      DisplayFunction->Identity,
      Frame->{{True, False}, {True, False}},
      FrameLabel->{{
         FormBox["\"mean abundance\"", TraditionalForm], None}, {
         FormBox["\"multiplicity\"", TraditionalForm], None}},
      FrameStyle->Directive[
        Thickness[Medium]],
      FrameTicks->{{{{0, 
           FormBox["0", TraditionalForm], {0, 0.02}}, {
           NCache[
            Rational[1, 5], 0.2], 
           FormBox["0.2`", TraditionalForm], {0, 0.02}}, {
           NCache[
            Rational[2, 5], 0.4], 
           FormBox["0.4`", TraditionalForm], {0, 0.02}}, {
           NCache[
            Rational[3, 5], 0.6], 
           FormBox["0.6`", TraditionalForm], {0, 0.02}}}, None}, {{{1, 
           FormBox["1", TraditionalForm], {0, 0.02}}, {2, 
           FormBox["2", TraditionalForm], {0, 0.02}}, {3, 
           FormBox["3", TraditionalForm], {0, 0.02}}, {4, 
           FormBox["4", TraditionalForm], {0, 0.02}}, {5, 
           FormBox["5", TraditionalForm], {0, 0.02}}, {6, 
           FormBox["6", TraditionalForm], {0, 0.02}}, {7, 
           FormBox["7", TraditionalForm], {0, 0.02}}, {8, 
           FormBox["8", TraditionalForm], {0, 0.02}}, {9, 
           FormBox["9", TraditionalForm], {0, 0.02}}, {10, 
           FormBox["10", TraditionalForm], {0, 0.02}}}, None}},
      FrameTicksStyle->GrayLevel[0],
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{65, 10}, {65, 10}},
      ImageSize->300,
      LabelStyle->{
        GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox["\"abundance of ASVs\"", TraditionalForm],
      PlotRange->{{0.5, 10.5}, {0, 0.405}},
      PlotRangeClipping->True,
      PlotRangePadding->{{None, None}, {None, None}},
      Ticks->{Automatic, Automatic},
      TicksStyle->GrayLevel[0]]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.790342991710926*^9, 3.790343015264345*^9}, {
   3.790343050225114*^9, 3.790343056110984*^9}, {3.7903430923186617`*^9, 
   3.790343109762454*^9}, {3.790343177988127*^9, 3.790343201319726*^9}, 
   3.7903432411523824`*^9, {3.790356505853786*^9, 3.7903565111046267`*^9}, 
   3.7903571589516*^9, 3.7903577510773478`*^9, 3.7903578315112514`*^9, {
   3.79035869333832*^9, 3.790358766568429*^9}, {3.790360011201702*^9, 
   3.790360030890048*^9}, {3.790362613550334*^9, 3.7903626405132246`*^9}, 
   3.7904468843240595`*^9, 3.790627786054023*^9},
 CellLabel->
  "Out[589]=",ExpressionUUID->"8296fcb3-d62e-48ff-80e7-f32031557375"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Microcosms similarity vs ASV time series", "Subsection",
 CellChangeTimes->{{3.785700085519783*^9, 
  3.7857000948913565`*^9}},ExpressionUUID->"ca04abfd-422b-4d66-b2ab-\
36fb46dc6bf9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"cosine", " ", "distance"}], ",", " ", 
    RowBox[{"removed", " ", "predation", " ", "MCs"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"presentAtAllPastT0", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{"#", ",", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", 
               RowBox[{"2", ";;", 
                RowBox[{"-", "1"}]}]}], "]"}], "]"}], ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"x", ">", " ", "0.00"}]}]}], "]"}], "&"}]}], "]"}], 
       "&"}], "/@", 
      RowBox[{"(", 
       RowBox[{"totalExpDataCompositionNoTime", "[", 
        RowBox[{"[", 
         RowBox[{"{", 
          RowBox[{
          "1", ",", "3", ",", "4", ",", "7", ",", "8", ",", "9", ",", "10", 
           ",", "11", ",", "12", ",", "15", ",", "17", ",", "18", ",", "19", 
           ",", "20"}], "}"}], "]"}], "]"}], 
       RowBox[{"(*", 
        RowBox[{"/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x_", "/;", 
            RowBox[{"x", "<", "0.005"}]}], "\[Rule]", "0"}], "}"}]}], "*)"}], 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"presentAtAllPastT0", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"#", "/", 
          RowBox[{"Total", "@", 
           RowBox[{"presentAtAllPastT0", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
        RowBox[{"presentAtAllPastT0", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "presentAtAllPastT0", "]"}]}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"presentInAtLeastTwoWithIndex", "=", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"GatherBy", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Transpose", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"ConstantArray", "[", 
                   RowBox[{"i", ",", 
                    RowBox[{"Length", "@", "#"}]}], "]"}], ",", "#"}], "}"}], 
                "]"}], "&"}], "@", 
              RowBox[{"presentAtAllPastT0", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", 
               RowBox[{"Length", "@", "presentAtAllPastT0"}]}], "}"}]}], 
            "]"}], ",", "1"}], "]"}], ",", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"distanceBetweenFinalMCs", "=", 
     RowBox[{
      RowBox[{"DistanceMatrix", "[", 
       RowBox[{
        RowBox[{"totalExpDataCompositionNoTime", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "1", ",", "3", ",", "4", ",", "7", ",", "8", ",", "9", ",", "10", 
             ",", "11", ",", "12", ",", "15", ",", "17", ",", "18", ",", "19",
              ",", "20"}], "}"}], ",", "All", ",", "2", ",", 
           RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
        RowBox[{"DistanceFunction", "\[Rule]", "BrayCurtisDistance"}]}], 
       "]"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Monitor", "[", 
     RowBox[{
      RowBox[{"distanceBetweenFinalMCsVsFinalDifference", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"distanceBetweenFinalMCs", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"DistanceMatrix", "[", 
                   RowBox[{
                    RowBox[{"1.", 
                    RowBox[{"presentInAtLeastTwoWithIndex", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "All", ",", "2", ",", "2", ",", 
                    RowBox[{"1", ";;", 
                    RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ",", 
                    RowBox[{
                    "DistanceFunction", "\[Rule]", "CosineDistance"}]}], 
                   "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Length", "@", "#"}], "-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", 
                 RowBox[{"i", "+", "1"}], ",", 
                 RowBox[{"Length", "@", "#"}]}], "}"}]}], "]"}], "&"}], "@", 
            RowBox[{"presentInAtLeastTwoWithIndex", "[", 
             RowBox[{"[", 
              RowBox[{"k", ",", "All", ",", "1"}], "]"}], "]"}]}], ",", "1"}],
           "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"Length", "@", "presentInAtLeastTwoWithIndex"}]}], "}"}]}],
         "]"}]}], ",", "k"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"distanceBetweenFinalMCsVsFinalDifference", ",", "1"}], 
          "]"}], ",", 
         RowBox[{"x_", "/;", 
          RowBox[{
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0."}], "||", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1."}]}]}]}], "]"}], 
       ",", "x", ",", "x", ",", 
       RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}]}], "]"}]}], ";", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"DeleteCases", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"distanceBetweenFinalMCsVsFinalDifference", ",", "1"}], 
           "]"}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0."}], "||", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1."}]}]}]}], "]"}],
         ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0.7"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Opacity", "[", "0.1", "]"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<BC distance between communities\>\"", ",", 
           "\"\<cosine distance between whole\\ntrajectory of same ASV\>\""}],
           "}"}]}], ",", 
        RowBox[{"ImagePadding", "\[Rule]", "All"}]}], "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Mean", "/@", 
          RowBox[{"GatherBy", "[", 
           RowBox[{
            RowBox[{"DeleteCases", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"distanceBetweenFinalMCsVsFinalDifference", ",", "1"}],
                "]"}], ",", 
              RowBox[{"x_", "/;", 
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0."}], "||", 
                RowBox[{
                 RowBox[{"x", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1."}]}]}]}], 
             "]"}], ",", "First"}], "]"}]}], ")"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
        RowBox[{"PlotMarkers", "\[Rule]", 
         RowBox[{"Graphics", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "[", "0.8", "]"}], ",", 
            RowBox[{"Circle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"Offset", "[", "3", "]"}]}], "]"}]}], "}"}], "]"}]}]}], 
       "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Normal", "[", "fit", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"fit", "[", "\"\<RSquared\>\"", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.785700144847679*^9, 3.785700176969372*^9}, {
  3.7900117595304937`*^9, 3.790011810840853*^9}, {3.7903612726260643`*^9, 
  3.7903612759587755`*^9}, {3.7903613485907393`*^9, 3.7903613876402845`*^9}, {
  3.790446640084381*^9, 3.7904466495057316`*^9}, {3.790446744222814*^9, 
  3.7904467572810316`*^9}},
 CellLabel->
  "In[590]:=",ExpressionUUID->"4b9fa0b2-eb39-4cdf-bf87-e555ad6d119b"],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
      AbsoluteThickness[1.6], Opacity[0.1], 
      StyleBox[PointBox[CompressedData["
1:eJxMnXk81N37/4eQtElEqIRWS4pCyRspUgmV7ElCQgpZQlJEIVuWkn0PjX1n
7GMf+85gMPYlIW1fv8fv4zr3X/eju4aZc16v5/U6532dM4cNnqg9pMXhcKpM
ONz/++81Gn/dZY85TONz/OEJ5zqsS6PVQ7l2AhscftDcZd+DtYsNe70TG8RU
uCrjlfhasAKH0ZA0lXHMZSLz+KS8G1aecOHFO4FpTP+TzNHj90IwiXJ5LtH6
FszlFt7MneMtRsdAJmwzpWLL7neu6RU0YJ/7ox40jk5hC8xvfvvo5GKY092w
4O4hrNpQeXvp4w7MMfzfc5LaOMbhcEP4WV8ZdjTnwV/8MSqmL06/z1k+DEu6
Vvtm9OkElvJpnEOhvh/j2+si38g6hyXnyvAV4zuw6f4dp35fmsVkdKeqEw81
YYY1fkNen6cxeX2a5w1V1VinkV2frfYcVvlZmV7bkYTp4K9uizGax5Qss7Pk
vnRj/A6rhy/azmHVJeM1MiWdmKOjfd4K8xxGpxeN95NvxK7xSre6cs9htI3s
PEqM3djBKYbJW/Oz2MzWVwsSNRXYSVNzFZnRcey31VbVlxqD2EpwV+SF05PY
p49DZ2zCezCv64HaCf3zWLZso1e7/DTmaHhdqbWSgmn1ObTRDHVjoddsl9/H
T2BFeAEsQ6YXy2I7uHotYAqzvhr6tDa0FlvA6TFEM8xgIhqjU5oRvVjOwDZ2
64KN3yf9s69PiIzt5BHiPbaFgsX3lk0r9vRiAYlZikVBY5i8MCFH+X0n1qNp
nz2zYxTz1W6/GpBLxLIsAqYbSyYxKdUco2s5rdg9G5UbzEPDWJHgvVE6hQbs
zmv71191prEU3JctNz2IWJiY1flXrZNY4n3XsmMKRdis71BIyLtKjCco91FV
QRJmhkWVRUWNYLg7rrRfFJOwnfI3VlrNJjA78SkDq7w6zN6B03vh2hjmG1RB
x1aUhO1SO3fyFzaB4fy5VXH9Blg6Z0KJdtU0xmpLeeElRcRYX5snSBGmMHKv
tYfpljQMT7kdWTVExopcvWOSFVow/0c8LH+UhjF9J7+YHezZ2A3a4H+LLzd+
Xpuy0zf1GCyAbeZ12sb8zso6N7HlzGODPsSbmhvzP0JyX6YPm8cu3WNY2n9p
Q79F3bzFR79h5ZWvtB/XzGAhad1kNv8mbC+VRruIZQ5b80uf/KmajwnTkS/4
f53E8Fx3n8Y878QynpIqSEdGMZ6cbTd6lKuxoFKN+79tezBCGeEqbtIN443S
GVz2HcekfOodSuTrsO2pQx4HqzZe76zo2hSegeGK3zFdURjBzlEso3nft2ET
BLoc+eIJTP+7drbXWh52/7S9ZaLaJOZ7tsfJ7OxXjIFFZM1KdRaT0o3z3jpd
gU2ffRJ66uA0FlbpTfOIpwVTyCLzeehv/Pxw9Q+VCuWY3uyOt6FOk5hZpFdo
kGgNtiU1XdIjdAqjC9Z/2tbShJ37KlLl8G8Gwwmlj59N/4hFz5PJ6y/nMBN/
hdt/zmRg6RwPtvg7D2O+B6pjd8xUYsH3pcvlwiYw5c94iu4TEpZDFX0tODOA
8bS/D3qpWAp8YFFi8Loy2go8iKy3pfctiQV/y52nj9ul2oPNLBkeMGGdxcYG
7RxaHs2DHsT4po8WG7bD/JK1f+8Ld4jBUjVEH9H4zmJ3Y6djsJQJGC+x9Pjn
xzK7sUMuW9T3PJvFXg3HCT1bncV4p41a5bbNYYmPXU3OGlLh/eAa/a4nvPUH
HuFIWfxCjmdgfmSUEiOfm3oB/w4IrhtLXpmCz0fvTNXERaCfpyizddzJPh14
5/Pv3u9m7SH4vAWOPAI3danweUV81l+9fDMJftsWvJtSuDwOfmvoda6YdRyF
8WjVvPo0N2UG/LGT/f54cOo8jI+FwzFzBYV20JtZ+8yxpsoWGB8l991+N85M
w/j4E6hxlGfToJcb+N9b86fnsd7DwqWHbs1j4t9/rJ5YmIN6QOb6VJKk4At8
UgqQS9ihOgV84eH+/3+/OR4EV9Vvv0Xew59lovVuCZ+qhPFxWXXc7VZGhs/f
nsB3NuTFPHz+EDp7XrupCeALITT6Bs/aW/h8lS/KA65/o4B/imy3yzvfmwc/
JBfciKZ5Nwbv35eGfyVRKwXmE9e9a3vQQhzM54JVo1+xWyLUs8ihFFO/fWHo
/Y+RCIldn+D9c7yMv/DtIB70M/d1a6SDPBXqWaS4IOuTB3Ew/+Qji0bOpGSo
Z74F2rPRB6OgXoQFpMzrOFdAvaCL470q9qcS6oNiQvu7hJoSGH9y++RNPttE
qA8Lhk+a9pnUQH04qTeXYLR9BOrD2onm87RYBdQHkSuxJzidqmD+ROw15Pvz
8qE+4Lodlc+eNIb6gBsW7Ix64wDzJWJ+676hWTbMVyTt+X/M5wOgPtB9uchx
33Ae5g8nY7naIqcG9YFQT2Ahx7yC+qB/JVuz5qAv1Afc8d9ZCQ/tQf+RfnNl
h8VzQP8u6VaXmDqcoT4w/5BhSvCfh/qAC+p7keamBv7AEe7MzK5pQ31woW88
5JDwEfivItXZwx+N+I+z27ZWHOUL/H90o9Y232gW+O9iK6BdKGMN/Ceo/Ph2
Z68r8B/3boW5oNYH9LomrXFpYj4P+FJ5kPjlZMko6FcCJ7GWlpcFfiVY3bkT
aJED/E9UXm8ot0gH/p91bTSOkEJ6x81YN7btfg9+xq1tuRVlZgz8jyxtbtIW
iwP+71DxWtAxngf+nxujWzyx8edN/o8XfV1X3cg9m/x3qc9hNqCxAv7LfO8b
GXnmBfx36VwStc1D/vDdFxF88908+OOOPFazeGcW3j8/Y/en06Ej4MfbRx5b
p9XUgx9TrBKtucQawX/Uwn3ZapIV8PNNtl8Z/Y7LA7/xzxz45ptTD34TkVXd
uudeJfjNqzsrQHjfLOg7L/jVqYf3c0DPLg07BO0/J4OeA3erlRctE0G/zFv3
6Km+iAX9mpw4+Jd7FA/6HU88yfl2iQp69RB9yMV/NQv0SmFvkpvEV4I+8SWD
7GESWaBPS5k78/d3Z4A+/a52MdhZUUE/dg7aFfLrpaAXle1bWJSvpoFeyLnF
At+6v4FeGjjs+ZgYJkAf1hL7Yk8IEUEfHiV/3zwIKQB9LO5ckGySnIX5FtE8
gn++Lwbm+0yCYrP2uUmY7z5a25GgtElsc/1g6X7owZYmKsyfQJqCo8YGd7A3
DERZ21lMwsCTUdxvHOaTI/TTAd5bmTCfc26HmxOyBmH+zK5maV2lnYA8n9iq
MPvKcR7y+yT3qXHr8WnI73touH4eYJvHfh3oHZsbnsVuFyvYCeWiPGFu8tC1
nX8a5mOPP70ZLXkOxn9unDVj/VwX5tP2Z3GWOIvdyK5iEjMdhfx4ovH61I+V
MZgPfcWkHo8jqL7ad9J1DYxMwvhm5+7KZbszD5+X9nSF7sNbgzBezvtLs03z
KFCfrGxPmI9yj4EfBuMPir0JmIDxJGm8zrpJHYX69ALPQG/ENQXjFztvw+Sp
Owt+i3fDndxDoYA/dGpuuBeuU2F8l9NuGglwT4A/RLYXConfmoX1lYs/jmYe
5wrrK1wCY8aFi9EwH/p+Jb1XHmRgCo+2anZu1G3hAwYvzv2bgPWWpWro7uHA
rzA/kfdXfAUudMD6inyRt2HyZw6sr0KKmXfJJabD+opQ7dJF0x6NBbaarCu8
msfkmeh4JG1GYL01TtdUVqXUC/XTpal5+/kDYVA/CcerEw6Of4X1ltrCCSXO
WxNQT1W6WApuEPBQPw12ChYajXZA/TSxCM4bjc6C+smzsKAcrpsN9ZMHG2d+
EBOByf8Q/R2UP49JUfzaO/NHoJ7Ksa8m7vkxALzBO55IjqjMwA4pzp+mHpvH
spxpNXe5j0N91Q/Y76VUiuopye+gLymhE623GJ6fSBTLBx657Erdw8pcBDzy
vaF4+P1EPMZeuZSfs3cee+RmabxvegT4FO0nUMzdOQj+WN4yrvt6zwTUW8Wa
U2uGr+rAH5f8FT7EXCRDfXWpIybuH0wEfs0IXL3gFN4I/rle9UPLklAG+dzT
L+S61dNR4NkuOdbU1VQydpX78XfT6nlMmmWP7pTsJPhri2DAXpn1jXkrru3d
fWUeI+zI3FFtQ8UEjSydNHvmsEKD9+4dNyZg/dbpGeVUaTmJXZVdaulzL8EC
+dR2K52gYALE+qezOXPYa4kxY36lGajnXlzJKV96GqGeL4zEhbK41UM9x1X/
Mahd8od6bkljQ0t/JQpbVfZ/V2I2j+2zeuKX6D4K9Z17b+3KqX09UM+admmt
F0YPA2/fFOH9rJyqgQdStfbTuyPbIF8T2Tuydj+cBP5mqK8c6Uodgfo894Xv
NzeRBPXZ47dzUfVG/eNe4JzVvDiPKbEOdgU3DEO95rggtYtYMgj8Xji8Olvd
lYYdGbGiP141h2ksi44vPhkFnodfib565Eg/rI9CTnDXcf8dBr7v09yvM9gw
hEV3hMVGyc9hCf4FaXkDk2j91FG+O6PoOfCMMc/H8efzAuDZ7Zuyz47LVgPP
LHofCWoukYFn5IzD3rkdhVAfXLD455KhOcA3O82ARyTXDPh9PNLLR9yOpwLv
DMRO0um7DQHvSFoV4odDaoF3hqacsWwxY8A7/J0r4nIt+bD+ivyUXehjWwj8
WzvEL6Cw4c9N/pFYi8QGijOBfx5kTOcyuRf451KkGWFM+Az8E9H15WHLjwL+
sQ6J9C8fJ0K9wkvO9dwzKQAeNhDdDL6SpoCHKvc+xr10QDyMpfNX5ZsbAR7m
nZ3VOZKWDTy0XMLRe/zEAw+lgtxr9pnVoP2nsq4v86ItwEMRrkfLhabJwEP+
SKlTLAME4GF8U4N0iXUbrC+I2irlFf2FwMddkgPs24iTwEcq09B7iculwMeU
iNMy7HIDwEdfHlUXknYV8DHWTPHf5Eki8NEuaeAI8zwJ+Ogzq/B25k478PGd
ldQWC/0h4COxeJbfdX4U8hrTZHmS+Ysh4KWBhrMHd8wM8HKYqeViAZ4MvCRb
3O71jK4DXr68dWLu9x4y8PJTBuOdVncy8DLIoDzCRXIEeHm8bj2kMwoPvNwx
o3RYwbkW8gWVq0gyqTcX+Cl8jo2Bw3sS+CnBWmhTx1EG/PSpXwhuVhsEfuLF
uGfGTmcDPxnv0Vo/f1sI/Jz5FfJrW1Ql8DOr5OkLjtM1kFfwfH6vb7wtBp4e
6Vo9KHtrCniKF+ri9NtfBjydu6ihFVZIAZ7qM6psu5wQDzzlSbz6bOlMKPBU
xizcIvdBDVovuX6WMZOpAr56PDekcxHvBb6uGB4sepPbBnxlePGLoeHjBPDV
I/DGVpOyRuArj6F+tKkdEfhqmT1eQ0OKg7xl1SuVbvNsGNZPEi/8A9k5UB4O
0mLrGq8fgzwm80UrSmqYAPsdsX+lPQ22VkM+zrqizmS8TAB+r5S9XXiSMQ38
fi428UuIYRb4zecR/PZV1hTwO+icXnH09mng9zvWdbN70v3A73zXRkbKRt7Y
5LcLU4DAl8Ia4HdKwpWn0TLVwG+Dt9oeVNpW4DeOek329SMK8Lu855msqgcF
+L1ALG34+HIM7W/5K4i+r0oHfnO4s7T93koEfgsS9mou/akHHpNXdvs8jioC
HssYii+WFEQAf5nJqfZNpknAX8v59uJI12Tgb3vIycOJ2nXA2267mz8u9hYB
b12C/sY8akoFvuJGtXfu8EwGvxOeph8tOpkC/t5hfqawZoUA/rZzzTw13pwF
/j56I3GpxbcT/Gwm2sLb/7Ua/Mx8cn6QZnce+Fel9O229s8F4Ffmkhf6NdRo
8Ks+0zKFmhUJfpXxvnI3zqce/KliPxRMoc8Hf0buVbhMuRENfiS15uw/Hh8J
fnBJEL0db/EF/EC+d2CHZmIj6J+ue5AkLlsB+tdXvf7mWVAW6D2kJzWz+RMe
9K6zeJ9reX8b6FtGaxv5iVIt6Fsjfee2DPMi0DNHkYuWpGgB6Fekm03bqCYb
9OsrVMAq4FUFem248e6cy/sK0JtM0nKq8yW03sP/rTVZ+5OM1vflH17fC0b7
eZF6JWaNfyJADx57H0ep7eiB9y+yR05ZJLQf9NbeLbyq/7wcXr/ATG+iHZAB
r7dU5px7uL8H9FRUctU4Z7kC9OAhcn+OJZ4AeuBIkyBhsYjvzC9785i+JqDx
I7P8vr9/AMbPEnevY4CvCsan28eOo9ycjPYrTbbgTDw+QD7QOzqwJHZkHPgR
P/gTp+M4CnknWUfnub75BNpfPBYxZx+cAJ+X9SGTZ9dgA/iL2mf1KFKmAfKO
mqFTG/XjIPhNkKrj4r2hA3g/X0nnbKMIMD7MdUqaIX8zIO/w8LbZt+iWw3hJ
PZP5xbhOBP/5Hoh98ZqjGD7PVGB/96stY+BHvx/lQub4Ccg76i++FCTMjULe
kWnhGOIsHoG8U17lyHNAdATyTq/pbafZb8OQd0q8cFQ+sznIO8o8HyyYLCmQ
d0Y8ZNkJSuOQd+RnMipfc45A3mkfcCkWmByGvJOV2iwi9oUCeefT3vDMmo31
9Wbecd1ztfyL4TTkHdzK1DuqRwHkHd9E4ftDJSWQd9YZuNXoXvdD3snYemHQ
HtcHeUfemUR//F455B3ff2T6h2ExkHdI/Uz99HS5kHdcWB8KuoVnQd4hn2w5
864rAfJOWhV7JicjGfKOo2KTz9ObY8A/F/pvATFjgZB3/HUyrI4+6wEeciZu
Lfw5PQT6X/qgwnTBoAX0b9f26OnIEfQ8ToM3RkYwHw9+0A/fKqgf8BH4SFQ5
dW9HNB7yjuW+b5eGyoaAl8NfOz6eYaVA3jk/uiCxXbMD+Bn1E5NV0yUDPwMP
ZrWIFdQDP0MYb3lfc2qAvOMruDtCQDsZeEoinCBh2XHA0+NFKeaXmPMh79y8
nJqEfRkGvnb3/7ls/ngc8o7rMytvahUF8g6tB8HuD28L5B3hY5bJ17eNQN55
fima33mhHfKOjKcoMZ2nD/JOfBL5br09GfJOdAvDodqjY5B3XraHHig2ngW+
iy0G0nF1DQPf4yucaLPUuyHvEOsY1GJO9ALvpwZ2BJoZDSDevy8Kv+w4CHln
LdaQYXKeCvy3fXSXVuvRNPCLI0dy+zedepR3xomk8eRK4JmDVu8Yozraf9p1
/VzDExIJeHWejsv3IOsI1IcplskLb+5TIe8QTNkdhr6UAQ9lvpBFF8MIUC80
CCfyWQLzIe+oDTi6GQsPQ/0Qu0Ck96inQN4hrLgwaFmkQt6JtME/ef61GPLO
4D9lW6NfaL3KJc7/Iv/tGNpf1ne9WbclEfLOrvA+910/yVCP1tc8GMYDKZB3
ZrzVZn9TR6A+nR2oM3yRS4G8k/iVW0CL1AO8ztF0Sjgn1QG8vhIseKphqR14
zSNencSyD+UhxyKt73mOXcDn9snnDbtGKoDPidf2CuxrKgU+76raonVTrx34
LGYx8cnAvQv4TO2SWTkrVAV8VuGzOKap2wI8bviromy58edNHvtr1zoIqk4D
j7PcKw1aBBuBxwfveZuOuvQBf6VCYpkn5JuAv5/UxQfp0zqBv3Wy9zr1N3y4
yd+QKP+PFz43AH+tl97w3CnqAP4uuAcSCfYdwNs8AcvZgiMtwFvFF3E0U5xj
wFve2d6rT0YpwNfk4ReTCokU4KvpjfyCfYE9wNfOHwOHtzaj/TZuJdEjR8In
ga+3nzmKB3FPAF8DmpclU0YngafMq7z3q8wngafunxML+p27gZ/9Do+f0eah
/EDHOfdFZG8F8JPzU/Kh/Bt9wM+cCGZC2VMS8JNuP/+HS+xlwE+XFu0+Wo0q
4CU+bRuT7LNq4KORy7Hif6R24CPzuqGgVk8n8DFebVjVU28U+Gg2X/7gL183
8FF+mXl9iq0V+NhE8/3WwZJe4GF1bzCjpmwH8IiZt2weL9EBPCouU1dL4SAD
j7IamS8cIKL1F8e9I2KNC4XAo8RO0w5CBepXUJEeo79LLAD+8ES3+C6dJAF/
QnpEP8ZpdaE8JXqQWXalGT1/p/6sD2FvQeurMab2vr8dwJuDn0fTWDf0tMkb
L17aj3mHKcCbGOPH77ZsG0X9Cg1ek8cYR4EvdfPstmaFA8CXkPPxuE6+XuBJ
8qOQCqOhbuDJcdJVb6JgGfAj5PKXFpm3BOAFc6HlaEVnEfjf5N1AcV16Lfh/
x+pe1t1CtZDXuk8GCjN5oP2p8q9bhsWFuoAHKr2rmtxSX4EH/KfTF693VqPn
UzRN/MeelYH/1dqf905JkiCfkejEDrxg/AY8IHDoNdgUZ4G+RRyGt8drlUNe
8Dg7qEPzoB70HjRgNuTb0A56f/btcuz+AygvGOqsP/vIXQX6/k3xqN/uVQH6
Tlljdt31qh/ywfX3rypGK2tA72tnqX3blEiQDwJf5njbejeA/kuusFZlPOwB
/SdeO0xqqWwF/XNUL9wWutkOele8dHz8558S0Lug4wrb/dl6yAMy0YYKch71
oH9WSavPSe41kAc6s4IlBzf8sJkHNG5HSC/hqiEP2DV4mMi1EqH+ix3V/VxX
RID6v2NYU33xcgvU/0Sm3KC8vZlQ/0VkrpzyyCkHv+3jItk92fDXpt8+Vexp
lfJB/pLXzr+yd40E/iK5119pZR2Heu/IKTu2JNYDftPXZDS6/LYL/BaSwD+r
u1QH/sJzbq/kmEb+Oj5h30CiQ/0t5FdSR+6ezwa/hbjE/rITRus/PH33Vu/s
CvCXhcPvjy0sI1DPi3rMRc2UysBvzsa2Z91et4B/Uoi7y45ENEE9zvvF98KI
vxz89KbN4sBRfDXU45LCkr02vR3gL84/KV/16FqgHh9/XTt0XbEM/LNATT3D
J14M/jmux2rbfaoIPT/2lnVdzBkGP5Atpr29FePRevs2dqaJ+hXmo26Ps7n1
wWEYX+ZOFnYt2nIY3x9HZug7k0dhvJjbruzFCOj55yG+aM6paArkBdYhe1bJ
vDq0nhuT65zIIgEfzjm5fRotGYLPw2GqShiZGoDPU02jejIxvh/yAHcGH+u4
eAvwgHROhL5Udhh4cK1NpWrPtRGo98L/ZitYprqh3ucfVD0n1T0K9X6C15LR
U44C9d46Tz3DcqIf6vsZg0nz5r4uqO8rlML1HUZDUN8P1XCNfvKkAF+OpiXx
awn1AU9o/aatehoRT5TqLtOxsQxCvVzgC/3qRjcOPOGdDdDvYhoAnqiGcAWu
TI0DH34TGiqIf8aAD4b9u3Y296F66Gk76mPGNgx8YLYoC7ZLmwQ+yIUdevwx
hATz3zL2fqv8rwmod3/dAzT6+CfBj/qWQ4d4mafAjwVeY9e4N/y4Wc/2WS3J
9nxA/UMc3++qFX6sA7+td5+28a6fgvrDYaf69NqlKag/QdqPDjn96UP58fDa
5/qcb6APX/U/p38fS4P6QdCTvCSXFw56IUg8eO+oGAd6IR/5V9urFw/6j6xv
HmCeykb9RLRF722+R6P9NWLS9lLmr1A/ZKJPnRioTQK/RF51O9r/LQ7m1+Tg
A/2cgEKoHwst6yQZajbMt0nLk38yzLlov8XaOIT3fCnUD/xZLUEridz/9EOM
B9i1xsF8U39p+YsHpUP9CEn9frRvg++b9YP0T4+uMiIP6odvKOcbG6OvoA9S
VDw5tTgX9IGnJrAepkX9Ph4RJx2+SheAPuy43gjEHcaj/sDBYZFLMnFQP3wz
hTkqU1A/qMjJ+1GZNGlQP0QMOYVNheKgfuDmqg7PHYlD9cMtu822C4/Wj7wE
uwifr1A/fJ33qGhwxUH9WKiYnb75Lwbqx8L+PYNHVBGveMgZ7y6m5gKviNzD
bZyemaBXotXZWcf7eaBXlS3dU5wseKgf1EWd3r7OdMS35Sz/91dTgW+JiqcF
e3UKQM++uywc0utSQc88Qfp/RZUzoX4k5gQZ8knjgYf4CwV/PQtioX7YnTid
uxaci/pJ1/44PydnQ/2QGEiZnF7OAn7ilLM0aHdkofWc1/MKsZhYqB8Ekor0
iVc5UD98bXwN5OtSoH7gpLS0iWwpUD9UfnyrvSweCfXD8hSf096Piajf8qju
1gJSK9rPjiqPUP8TBv7jfndeWfJqM/x732C7rUpsuah/KJNvlt2tAvhMyAo5
UhOaBn5zuaYwos/kitZrPdGUQzrl4CfSuOYel0ON4Bff5b1a8o9jwS86Np2f
66PKgJcqmsMK2qzZ4J/IHXqLkkdCkX+23azaOlMD+l9wS+rYItYI+sf9uK6T
ZfABeNmJvx9+LHMQ/HDw5WvxWvk28IPJX1unDypoP3mHSd/jSt5y4J9K/P7K
Qy1VoBcPnehj8Y05qP/YgiOd+xsJ8ns5A/e5Hv4utL8suO0D+/Na0IdMO8+P
f2ZpwEvyz39W4jeigJexW06mPVRsR/mCY+1wegMR9ZcGfZJclw5A/Zml70kV
V3wRT5+2Xih8Fwnzh9N/qsK5VQjmi/DPxkddOxbWz46r27euNM5DPZXtqj98
2H4e6qGxm8IX9ZU5WM9GcnU7Uu/hUf9Id8L13Ak3WK/iGCIY3yf5wPpUInRv
unlCHugh5BaNpRp3Bsy/jJvCH/xUAOpfXbufq2XnAvOpnyVtfGkxDOYvT7aR
tfheDurnG9d3TM+Lhzxy/oWTc4TmLIzXvpaymP74IRgvJdPmH4HnR2C88l6e
djyV0Qfjley+YqvTR4bxarq/TWRdhIzqic+Zj2o1QzB+DXmP08rzqTB+pVZL
etPBqB8Lf/XtYtsVtL/77F3pKPUhBcb38C0WYefBCcgbLj/lbKpuz6DxzngX
iAWkwXhzECLCaWoLYLwTVSMySxfwMN6+airpvUuFsB9giZMwanqcAeO/rH7t
B+8e9HzARIwo9dTwP/uhxBrJkcV09LzIfFJfX+0r8lejY1TAnkLUn3eM8Q1X
Wzr4ieC8n9r1Ce2X2fWd+CLlVoD42Paj+VBaEeq/2N1G5vPKh/lzIhbRKySh
5wUXjy3JBh6cRPnh/P3Vc02oH5nn9q4nJhv62MwP+qGtwqkz/pAfAg6xrvU1
UFA/RiyXQ0pDDMw36fx6F8utTOAb/qNxBxNfHMy/yj1dJb6yNJh/nOt7Pjbl
WMgThA+r/+I5PND+1Ajtv4nTFNCD8j0OITr7cdCDI7Oj0zmRSXg+4BeakMTw
FvWDmSQFdCv59UNePfOLXafHdwz088jt9I73pVTIrxJ5la3mT6igp1b5aCsF
bAr0dEs5/d6K6CQ8HzgVrmDj2zUB+1VCNNfOHiYif//9qy7T3DQNels1oJS5
bOSezecDbg/PXsmjo8L+1Q2C816CAhX2r0pEbbS4flJBnzd8rrQ8SpiG/asb
Wox7PbPQ/tXNrQVNTgVTqB/CguW0TAcVng9wcwfWs3FS0fPQh6E8mnQJkM9I
l1jPnpbKgXx2pqyX4c0tCtQbmXUTjgdExBueTymPwl3zod6YNFhqkIozQf/4
ZjFxXCvS/8KPvYdYnuZAXiOnXkyqFU2DvFa9xLx3/zXU/4DfJVd7yRH1P1xv
nXHM66BAvXKRYPot5I38xMxDOEaISId6pW9eLjv3LAX1Z6fIZj1f9wV/uQxM
ES1pvCC/6Zcu51sXREJ+U3+U1yx9ggL5re7Hr/AY6zHIbyqXE3RlypMhvzEK
SLLKf8yB5wEk9evvv+vHQp7zNfXw8lIvgDzn0nHTJ6cOD3kOF3WLcUnlA+S5
dguFwSafCchzK/aZRxk5RiDPRVckd6s5ofUIv1y/QG/rGOQ7wSQja/Zz45Dv
vCbmaor4KZDv1KNumYx1UVCee8EuPaNZhPb/D+n7rNFkQ73W+F3XYeGYDfWa
ZHC9oQZLg3zny+lgZiCdCPnO7ukqg4YzBeq5hvRMocfXPOCZPl6LEMCSBzzr
TvM0vHg2D/Kei7g/7RdzlPcsDtSrpzBNo3pvvESpbMZDvedI5qC3s8XD/v/C
Wu2zLXzRsF9XxVK4VkidBF4S0nO+byOGQF50ubvL7JpGBuRF0nkhs6C7qN/B
0kz2YRhtAupXW/FoXdYYg7zoy90m7RmO+mlbIzx/kIfagZ/dWUTS0v5c4Kf+
J/qQ6vY04OdSDruL06FetJ+//Lzzgu4M8NPxho7eyEw98LLZnuX6xSNT6HzH
UN0fVZ1Y8C/rMWv1xpgy1G9Oyd3CMdcE/s17cJJVf6PebPr3RP9UcMiuOfCv
jFHl88yQPNTfydEtc+z7HPj1+FY+udBjTaDPPAabhtQveNCnos3Yq4dZraDP
8F8d9C0bXN7UJ6Wwh93UuhL0GGLglKLfPg3rjUjniP3k+TTQp2u8XYPHyS7Q
568vQ2OtL6dBn/K/Jx6aG1eAHvWTvm87pjEHejQ5rTeqdCUH9Phl+OIToh86
z7BmtfrjETkL9HfnwPGLPwfn0Hqjno+05X0H6E++47nn3Mdp0Je3g6m450Yd
2dST5rEZrqzoedCTGanczFG8HvQi1SVm1T43AfW6neZ3YV4HOj908mal6HFj
CujHqjhk1Tx9BvVDlIgZGIyhetvKty226PIY6IWFSO7t/zED+th8/WbeypOs
ybL7i4d6GSKE0X3d0gP1UjhfIniiZxjqI13URXZdDD2/MVl/I/zEeQzq3+br
N+sZdwTxsZvcCNSzlJsOGrwrw1C/8D6VhyWYG6B+WZqeUr59YwKet2y+flNf
XKOvWOnOzYKe2rs8VxYcUX8Ws7BmcD/fBOjBmyWMPLEx7pvzv/n6zfnafD2M
f+CAoUhUM+onVRW4rmBQg/pJkuxakh8SIS+JBBY61vkXwfxIrJ+ePvmnCOWj
xwKSp177g78L7J5dZpZthfnSZ+n1uBhPgPlq+LTtwt6LbZCPJLjtzdv3FcH8
hfBqvj0jlA7zp++da/uqKxnykUh5XDQXNQ/ykcRjd+XuJ+UwvzormSvdT0kw
v8fVEs/dUUPnkT3KJ08HSGTBfEe7tBxIpB2A+daI7T04H1wFeajhF/8FZxsi
zH/Wbo94i5RyyD+EDow1bRD1RxBY/p45cSIf9LF8pSpVNbsG9MGYoOIsJUKE
vMMs6XHunVwZ6AX35Jfy/kt96HzZ52qW38p1kHfsLD7bxdiUgX4WaJsY7shn
Q965bRF9Nq2nEvioorlDsP1LPfARb8cv7RpdB3yks7gkVX0G9TsYNRb8paXv
Q/tRJ5wWFhcSIN94VR/xPNdXC3w0kTuU81GwAvKLZc/5CKW33yC/ZCm/1e3g
KIP8skxOay0Qbob8YiiWp0cSIkF+CTeYclYo6ID8InNSPorR3hPyCtm1R3CY
IQ784ng8Nu/srjLgsYyiNDHYtAvlhdFHNY3bWoDHMxJpska3etD5skGtcpmg
BOCxS1uhU+etZOBxCWN6n4FgG8oL5ruYA7IJ4D9rkRMK6pfaIS/Y9Zskq6+X
gh8jXfOr7uZnAo9Fwu4tPvXsBR73X7GhpFPqIR9Q6rYcEadtBx7PNLVuu1ta
Czy+Y190NIx9BPJAU3h/z/AXEvh9h9p0ucPhZqj/5fHFA83r3cDnqT+7B85t
+HOzvpOf7iybPZyI1ktWu8Yn8BHI37gPzCk29OBf/O3zR8L6CkBPBOUDjc/u
hqM8rH6RFHU9CsZnrTzJ5+piPvBkWc3DlnapCnjCqk0vQVBugd/HTL/zR8Tj
VODH8Rke5ZWieeCFV92oWsmjRtDbRx2G67w+6HzY9ZkFjsf/ukFf2q6ZpfkT
6DwvTy1furxRMarnMkvv7j8uAj2wBL9hfDFBhfk2/Mt/MW2Dm5vza1ZAMLNi
6oPx7zD5GrK1cR7GT4shVNexpAs+LzHk0PK1EHTeDsfm9zfX1wHG09rpwH7m
I+g8c+w4if99eRP4WWJkv5/JVzTeXiZsNH98UL+mzDHWIos9teDPHflPI2eO
lqHxyODCF11pAH+Z/r2RE7KzE60PNPIqGrdaIT1/tvD+3D4En1dkKotT90sD
6EnlsxfvmCvq/+DgGaRSckvQ/lKkc42Jpx98ftwnn32Kzjqw3ha5UHdriTAP
849TWbsctyyOxkeOd3X5yhMYH5mZwb1UKXTeF5cxWMfWqYH6X32NLNy91KE+
kNZUFatdC6E+LEc9lzj3sBzWzwNGgoPSdvNQL6g0NWN8oyVQL/p7RFQF5QlQ
DyyrhO/+fJ8P9aB70sHPW7Ec6kGiZNkZWnm0fylz5a59a6sv8DeyjdlhwswP
5dMLOa47JlzR+V1R+XhhL1t0v4NQ91L3dn/ga6SWrNgTkY/o/C5LXXz5PS10
v0OcfFXZ9CO0v/JrKYRVDPWD4VwUHkbWM6L7GxYUip9fl4T1nmK3R/bRn/Ow
3nMR1DmvgEP3N+CyaEPLTCzReR6D2wcdROLAL7ipm53/ku+i87nlRuki7HdA
TzwnaIyzesNATzjzbdv5FM2BjzizyNgFPyvQFzlAdF7tWDw6D3tGrzzpbSLw
Cucr8HLozjHQi4jU/uK9dVGQZ3DXR794daoiPaXi0wS32iM9BeYqiXKFQD3G
FXD07Rh7DPVWJudjbQ9fALx/XDfxNFXGHvStWuMZ+uQ2Oj9IFX9aad80DHp+
dD9h9711dH+BmFX40YIdqH/J5YpXRrpJO7yfxoj5E/OhFNB36fBRU5lxMuiJ
kv93XPJzDeinuzYp+ZLOKNTrK4EjQSVOo6Ank1Mt3UkUtB9Rbfz2eLYxuu8g
Jd320PXLPcDHukWCUH5AJ+on3NZSl8oQA/qRUNp7mk6xGvTgJBN49dyxKaiv
wUavFDNyZ4CXxKKbjkeX0P73QeJ8TKkT4gnZOeB+8f1WqGeRxhoMS5dR/wmh
QZJO/GY96GFtyZhk6NcOvJHxmqbaDWTCfBNvVGXxPspH9Yvaqcp9PhjmI3Gi
dsB8ezmMf7KCsfwtdrRfi/u2xb05/j3wJE/kkuX+1XLInx5sg8ZEPDqvtLDz
x4nZsSzgx5pkJ26SoQDyZKaY+Pr1jfX3Jj8Yzb4H/crIA14QjwnT1hYXQH7k
8L5BNr6XCXnRJdSs0ELPFvLgQyHetb+hM6BPfbcSSs6bbMh/uK0SYvTMjui8
Y7vfJFG1APQx8lPLMecV0gdO8ZVobO8T1G9V/u7o56pCmE/e4r2ezpQ51N+k
YOrjxleM/C3zzTYgiBfmT6uX4MTmi/oPjc30gjr00HqQkV/N/n1zCcyXU9OF
yEYhMsyXoqDsjQ7aZpgv0gK3ro75GPhHg9v6Sb056gd03d2ct7W/B+bTTa+9
RHoQ3Q+hWOV67cynRrRfIOl9e0hkAsb7nbW3qMfdcRhvpiMOYWcVZoEHs2wu
c59YRyGfe3BxV9Zkk2A+rP9dublYOgrzUdLKdn/gNFrPyajfCcOq5lH+Hldq
yzvXgu7/GRol7TNF+ZvR/aJA8rlxdL4qgE/tWvUUzBc/u9fSnjsVMF8OAYaT
w4tt4Eca9m8yF5vQfhlZzDnAxgCtH9/G4Eo+M8zDfLJe01QmBTWjvHv1ac+8
80vIu0clPDJz5Mjg5zc92aeT+qjgZ6rLia6AyTbg9771cqaip2j/i/UbnfkJ
r+7/nNfs/T66gPrPEiXyskQ29LGpn+rFZn6xI7OgF5xIrqxVPsqDkXkUgbUq
9HyKR9PraOWuNni/+zzsOK1quoEPYvHy5r/2of2FHcyZjKq806A3Fp6zu15w
DAO/TyizmgocI4P+ejRY3PHVSH9eV5PmmD6S4PeHmd3dbuTYBHqT+Nr2Zl4M
9Zu0v2jppU1G99Fsvp9NPRp02dzzOIzOA1DoRXG2F+sgr9wu6HMMUSEBX7LW
vOkOsvdCPlmjJU4xNJNhPbs6Idbs3j8HvLm972EWp9Ag8OZ6DvObYko36H9H
4++EfmcqrFcrzXP0C+UmQP+K16RfPvgwAvpnikx+xNOO9L52+XNGr+0o6D3s
xa6Hz6JQ/72E12ijuFkG6D/vpSSmxEIC/evr+tEY70X6X2m0cnr9H70T523k
DkzkQv0aSPKnNG+M0+b+3OZ4bfqBzFT9d39nKeSj8JO3/iT1DUK9i+XZWZt8
pgrWn1TV1EaMOAn1zmV5etsl1SzYH1f/3/hv5qU39Qf2Lp5qBb+l9UR4fQ5G
/WpMbbjK/XdmwF8nm7+KmXD3Qz4K1VZzmfRH/WoZ/5tP2P8LUPKVDWhC/Wps
5TZPJAfBbyGse+WNLcugfr7viLyYUjsD+3+betj0ozCj3zHC4Xbw3wmjGanR
VCqsLxfpH967Zk2F/b9N/Wz6M93rxV5NvSmov1m69FdvJ8/Afp/6//S16VfB
PbvjfPRIsN+n9D+9bfrNg7muyLilGD0/tcxrN3ldivq958QPXH5Sip43a0eE
DNyqAT919zwdpkaXgr544rmwl6wRoKeFgxyTPCvoeYx+Mtb1PfUz6If8IMH3
4MME0IPKzdO8KZ++obxcxvhtH28C6ndRqLikeesLjL/+novTC/TpMP4m8q94
F13x6DzhoSs+FnvReb68eGnBJ10U0Lf+fm/lpjBfdL9AaVAnRniBnkfvXvh8
M08fXt+6kMFj04POQ6msVe17fC4FeBZ5NKfmqm4xjK9Mu/Rw3Dd/GF+Nw/v3
HUtrBJ65WKbyndmSjPKw36y9Vi+6P9D/5IHLSRZzUE9zsdua/M4jMB++4hL6
PJH/uW/pntF+cZYI1E9boe30MikA8pJlsXS/GzUP+EYOiTzYmpEIfAssoSzE
OdcD3yL/jI9+/5UBfLN8Kn/LmIDut0h60ZkssobOc7vOmWrs0ehD+7N1o2pq
1/JgfcbsvzdxajvKWy6CTh5/LJOBf+RDNVKUpEzgX9F3hqEqLiLkAZn+xg93
edPQee0HqweGREqBh4x0SanV3TPoPgtJPp9SkUbgI57bV0FTOQX261xEeMrE
42qAl/j6XWbHIvCg599fcaJ3fBqAl/isuksej6JA3+TVV3+skyJBT7Uk3eIo
/3nICysKIjZCF4ZQ/8tzhb+LrkHofNKP0KPvj2YBL12mxA/uNvECXoa1cH6c
b0XnrSMn/OQphU3ASzu9H29zdPpgvZBncfTXK/kBdJ6zwrUlu7UG/MNx57t8
ESfqL46U1/Yeaa0Hflo+YbWf/RwL/PQ72RlYcnEe8opWmRTbaWIPWm9+/32B
nisGnW+WfSucYl+C8qiER6u1fjDwM/Oo22CW5RzkF51zWx74Jgyj9ajPh+ux
Z7+Bnxeccp341qOBnzIy3+ustodAnmnzwpYd/ND55S0272edNni5ydMp1p/q
Ub/RfROrfwLqXH/PQb45w7b40oG5H9Y3PknTB4yyxiAvexxUc7N2HgCeKNrv
vDqTlY/WvzPS0+IxwbD+DXn7ZuI9Tzo6z9gw6nqQ/w3q94mVU/D6QgE+XK+4
93PH4zrgA3Mx78L4Szzsx4RUsBJ1vdH6dc039F5G5jDihdnHp08afIEXOkmM
LomOo8CLWjPvg3y/Z4EXFklMh6iLJOBFLznR8+vVNshDHd6fhRJdUf9xgNwh
59b+MfCn48xCU0RzDfjTs+mO2UT5NPQT/G6Lu/9xHt3fVslgcCJxvR386icW
O8UQNQl+ldETw73ZGJ9Nv97GHkiH96P7PQ09+Oy2p1WCXyVWUq+/0hqCfgLW
Ny5B4evIv21mtipFpWh9Pme0p1V1rBP6C1Q6C9IfhpLAzyRtQTlm9y7wcyBV
W/pHaBv4WSSppe0xbQ34OetFottT0iC6/zN71/yAYCD4uf3SlPse7VrIQ8k6
n/wYjFvA3+UMsrg+QzL0FxyRNly1Z5wBv1dM/zbj8J0Bv/MEWM464kLA7xbc
qvLSmdPgd4OoPM3nV2bB7yLnr2kcxgbA7wdTnG8VHCJBfqJ5dYtFkmMG/G/t
9/wh/8b/39xvwjW3zrpxR6P+gjfyZNe+cegv6P4j673wIg/6C9TUQr0nOyah
v2CmsivYX5oI/QUS0xfy6J5NoP6CC0qso5eNoL/A2sSywOd8O/AnZEtPb5rb
OPDHbmzAYGwJ3V9jVsXePlGD1r9zupVb13pagD98BacM1jlnIM+RC3+cWZkL
Ah6FHT6sFxvRCjy6dLfD4X4x2k/uLGeX8Y2ZR/eT2vyszrrVjc4b7mtWuOfZ
DvlOokCnib5oHPg0VCU/nq8wCXwKlG7P8z5LBj4Jym0nlFiUA59GrM7Xae8b
RvfjKJzdGZVYDLxqZ3SMCLw4ALwKm5N/WLCRnzd5ZcJwvUKztRf6DTJOmNad
/TkJ/AriCDfYTZ4Gfr1TOM92ib8N8qLOPt8EZZZa4Jlj+4SIkO4g9BvEj3cM
3b1KBb71thns6c+ehDwpHH+TvzGmDfKQ1zfZgF/paD2X41PSHbowBHwLfEQ7
4exTDXwTlNcW8e1DfEu5RCKfFCEC3+7JcbHvjp4DvknIlNN9OIrOF1DrpcUu
OCC+LVTWN1YslP7nPmVyzKAE6ldgT5xq1/hIBb7lrAZUYvU9kIdK7tbte4ub
gTy0mpt9ict5EuUhFq8SFyl0/9rItnD8gs805B3H04Frh76j/r/q94fyD5ui
89vfu4acaLxngE+OhNiqhz5V6HzT/gLW3AsjwKcG0SrF85eIwKfo5V568cZR
4NNJUdbnfd49wCfDAo+ro32TwKfBc+JysVQS8GnZ7Vb/ByIJ+HTX3XXVTHQa
+BTC9y0otrYU+GRB8vvBGT0EfBKJpu44UZIIfBJpCCkq6R9H/U8aAa6p4iTg
U7ulycJFGyrwiUDVwfGtpgGfSPtK3Xc8iAc+mRnze0Zs+GyTT1TB6QZB1zzg
k/WWCr1Uv2HgUVBKzedTehPAHzwPz+9j9YPAn8Rsw9y1X8PAm2upRdbTIaPA
G8M2vZt9BZNof8aLv1+ZqRp4gwn8/itwH/UzufgkbKgB9avre2t+P7VQCLw5
cL2NqzNkHO3fbK8/d+tfEfCkBX/9jLLtFPDkFI6Lr3hDH5v8yL80xIXdIwM/
9CMNSp2lBoEfORXLX2KsuoAf1+/2/wyPaAF+LNS99zvsRQV+KNt2qhRh7cAP
kSLZjpvbpoEfvukFNbv0qMCLzkF/3+zWCeCFHUPM1GBSDvAivCHN5nzvCPDi
tsgwN+PtOuBFXI5w2ZfQceCF5b5XR/t3lwMv/t5WYD0TivpNcM/2bnNL0EfP
B5htLEUijgEfanNXt75895/nUcbff7847w584B9nmlC4h+7HxFFfpxI5z6P9
fC5+CkfaJHoe9b/Xb66HcAwzbB88jeH5E5Ejr4znHXr+hNPd7qJf/hLWP7eZ
mIKzl6rA/7jduEtj3x/D+ucgx8tTnG7I7y7/ez3kozf3FXs2fj6sZ6yKb5or
e0E+0hg/4ivNhe5jwBHI7LQGDJCPRh2TBNZD0Hngzddv+uNW4fEfYp7oedFT
u27R13Hz4JfKdIFD297PQ/1u2fL08pnpefDH5us3/bGmwWzU+7IJ/EEYc40Q
fPsB/FH/OuqT/sMpqKd5gU3cZ16VQT29fNeTaKBMBX1v/rxNfXd5qCpN+qB8
LvO/n7+px82fvznf0U8fWoUKjcN8Pwhgo7+xbRZ+v2DtyV/O1DLQF540POrI
mQr1qHuZcadpIR7qkaX8u/ezBwpBX4FsTTc9uwjofJ4nz5+e0XyoL/rRitPG
XYFQX+x62Fsa2kvQelsq1Sv3SynUE/1vwiOhyUFQT3Aa8Ts+03mDvlxqKu2s
1ANBXzii2ZHF9fdQT2SkxIRGnwWg+yHP6ggcl/cDfeEWOXUalj+g+4tFRURq
Fn3Q84bS/SWqZmg/Ruag8eeuCE+0HzM8XnxoGu3H4JyPvfgrEgL1gHDCmrH9
UQR6vsnO5FobZoSeb4qMXbp4nAf4ri+gatiYn4Seb4pg80N3b6Lnm+Ip8nRD
Juj55YzefN5H9PwycmX4U0pUOnp+aflGnholjdaTa4bm5VOS6Dz2LaPLr3cm
oueXc/oUwQUd0JvLu74V1rCnwDPS+6MlJnTfgF+Wj1Uuly5/Q88vf9OorScr
Id4oertebjJC6y0pY9bPrHKIJ8+3SO/9aYw+z+LiQ10aU/R+XV502zT8lYbn
qS8r3rs/NAN9mn7c8vKQyiTwTy7jxz/HOHSeUiKMZqeaWC3oXchqAfdElgL8
MiK/n+omtoB+bkZsdaH4o/1nV13/q+PdaP11/PHA+Xwe1N+UQvMi9HRtL/iH
7GL2vT8b7S+d+WwuU+Lahu4DP4U7y2H6DvQvdqRc9wQXuo8jT0sxYiWpCfym
kZqGexWWDn7jyH53xrgkE31fRlT+FrUjwfD5HF5/25FZiJ7/KSoxpKwT0f0R
vsaiP0mPYkHv1M9b40L34EHfJs/mQgXpMyEfPa/7wVGe2wt6T1yeuCzUkQ96
x98QFXX0TAM9Hz+VRVQ3yIM8IzF3WGD3DDpvxOx+SkGFGZ2PWCi6p7R7CZ1H
I49qKuRIj4A+DcOvuhn/QfdXuQiFyodsT4F6zj+dsjO7oA3dX11//3GtEhn0
GvmRjYGJsRLqYeAx3StHj3ej8RtwXvtY4wj1juPqyzT7YXTfNu5itbhFdgro
LbfRkFh2nArzU4k/fpXrJNp/oDeev52fTwX9q5w4+yy2Pwbp/zXtOpPbZ/h9
UhYuAqd4q9D5sYuOC8IlFWg/8hdxUWwvun/ytCrhSKM1et7CU38x5aI4en57
9ZhS6b5adH5inOuH9OzKGOj7sYYfN7sx2m8MiwsMdnwwA7z0UPpoGCI9DrxM
dP39RugNqscybsm4f1zjoB+ukcL7Oy9SUT+I1YUZ/YES0BPVLet4k0EV5Gv1
kzz/Hs60gZ4Wol8bfr0UBXricdPtmj2FzoNakPdx9JqPo34RFvuNYpgKPDVV
F4i3bpgE/cmz2fDt3PD1Zn6mkwpazSiYQuc/k862iB2eAv2FSZidZ8uZBL5a
vvjxoc6VivbzRK0Ov/uCh3pNEsi94zdGBN52E10J1JkctH/3NJhNhpIBeZbu
0fd69xdj6Ps9HEz13/76BPpyrJcMv0wmgt69/L5IZUyj5yGKtHLHWa7iYb2c
HaI399sc9cMuNNyIoATmQD51P0Wfki7SAfnUzpGn+2NAPaxvZz6fTMgXnoJ8
oPJR2ER4ohHxncoT8rUsCfJqgfObf67nxoD3kXVyhny28ZBXRextvp2qGQP+
i1zk4PCtSoG8yvH7uRmHD7qvfYbU/o65swb8QvkZFt2yjO67tvhJJ+b+bxL8
sO3HYZ4LrDPgh9AHd2fPrM2D/lbi1kVE9syD3tTPdyTV0c6CviZXdR0bzOdB
X5mfpl+c2oPu+z+5f/kY6UM3qrc4DnKuQpk01MdxxZ06G/reHB+ODMHl4hj0
/MdAw9x+tAs9bxWRWtzNzo/W42fM3i9ckusEPm/NabS9Ez8N/h8P5q67vnMC
Pu9qkqXwnmPovu22SbeMbX0ofzPWeLkbXaqHz6/opXf57qMi8B+Dqkam1g20
vo296sQrXDEB/mN9/cPL90QD6qdRvJlCaUU8d2G5cC55C3oeb5CvQfhTMAp+
W0rfz0KpGQC+c/fveRlcNAx+G7zwnMaZF93X8ebR7tpzNFUwvnnfhncHDeaA
37JuuKkuHRiCfNw59Pz8Tasx8Fu85dhNG6tx8NshmwPlbE/GwG8v6nU9Gxgm
wF9SN9u2ZBxA93OeHB9Yq6xG99kfimq7c1l+HOrF0a53ztL3RiA/f/qyir+/
8fs3/WQ3fpdydqIC/LQ0+fKMl0wn+CdHfCR6NRfdR9WtIi8kzFoEfmHi9aIL
D0P+YDq0+nXx2jjoB9/1hkFLIhfV92em3Z9cM6BeLb+R1BL6gPpJm1K2xVvV
TaL72088E5uQL0P1BJ92vdsT9V/pm30S/DyE7vfjGSt0OyWbAvVkoV9gRcI0
DfQUSeuVz+6QCvspYUz2NFU2FaCvzjuMHDXv0PM/SyFbmk95laAv4adNYtJs
7eh54CX87dCN9QHcF5PRl9qjWg58pzK4fdsbiM73t4eXXmu7jfqt5ZJS7+Z/
QfsjlgnzAq/tK0BvnNVV2DbRNtDbDs88AudSOTp/uWbf8CEZ3ReX908/J7sl
A9Z74V5fLmxTGYT1Hc7LyvftRD46/yWtel9pJBP2Rxi/78/n6KqB/RGqU3TU
hG0j7M9Ger5l/xCaBnrOtlZzmDBHen7P92Tnjbtk0HOc12vL+dYR0LM3S0b0
7NVJqB+sDA5VSjvHQM95NWf9rotXg55pO3d4xzxF+adh6EsjMa0c9jMI1zR5
eWW+gp6lbl3wzZ1tAz1nEViV+5c6oT70W5T7EE6g+z0zDsc65d9vh3rgOD8a
89sS3d9yvGXBbqIsB/K0wFGesCevhiGPuOhPW4SNf4T1m+WT1acVxBTIJ8Tz
Mw8atYogb88IVG81taiGPCKy5Ozv0JSEzgNrRx34zp4FeUQxlYfQn1OE7q+O
F3A/pDYMz1faKdMcr9Q7YL9g/4NO0ytCs5DfRSVvf9E4gc5f6rj/3r0vYxie
l+BoRIj1w+j70OI+0Qp7WqPvAyEtxvN+FE0Df8jIaTg+9sxB/D3Ga7Xbvhr8
oEIO0T1+GuUdywxz36qX6Pwkaf+f1DS+ItD/mq1XWVc3el7JYefxo0qqGd2H
9GmuIkg+G/Tuu+o7wlmTDHxd/hjp8ZGGBHqM1ftq1uRci54/Ugy4lprQ/V4i
vm8u8UvXAU99U2ams5+movuBurz21io3gN68FPMy7V61AD+Zc+W17r4sAf0Q
T/oKXsah83guHRbnSe/LgYeJ7fk72RVqQS+fHBsFE4PQ/rCSEBOlbhX1G7Yc
G9t5n2cG9LDyA1dRnYa+/4qnQqCS61IrWp878R0Je4nuG9G6TLsl5hbqH1F/
6upL8uqDz1OHMRWVTIzD+w9UfvVSlZ8E+iWfvzR/VxfdZ3qwxDC68iXa3/b5
83xmp8oI5G3FmNTBgqvd8P7lOCemOknt8P6P3tE9Xfh9DM4jE8NjmN5mUUHf
1CUN2Tcb68lNPavLS723OTsMehZ8Kej2xgydz+Jsy3lxxXIM9OuaTX8tragT
nvfltJYm9mnMovvUVx4Yi1cNgZ571xmHiFooz4s0CuIuMk/B+FUW/on5qzQD
/PbfvUv/8hQV9Fug1dblbDEFPFe28yvapYqez0XeYj081OYLef003TfO1ftk
0Pfv3cKna/+i+8+9OTMelR9B/Ux0dLkj+d+p6P7z1ZB+8xfo/vNkg57YlRb0
/RGR/uFUdvdw4D2p3Xgt8MMM7O/l5YpZ1TxA3xdhrey3xV93HPg+WNmdLhg5
C3x3JcWq68eh/fC7BuMVGi9mYL3Q/mP+S6cmuu8zZW3x2d/Hk8B/5e3C2/ML
J8B/MnpSa+kb66tN/5kwFI92n80D/ruuOq5yy1HQfgi7Am+6iz+sF75RDIa+
U4ZhvcCRwMWdxESG9UIBKeR4gxLaPxQv1N+HKyCD3lvkhusMfsxAvVi+G6wi
YFUHfqYbV17av/G6zXpBJ1lQd+jzJNSLSQq7XkoVWk9M9cZ/tS5BeciwIGhh
NHQa6odIUlI0x1Mq8IBGPO/p7tuTUE+S5RjpORIngA/dE1E7KN7ZsJ4wPS0r
d3EfBfxXLX7EepV7GvxjU4b/q+M4DjyxHB77zLyMzvMbJTA8cHg1ALznvnAg
tkedALwQnK5aU9dsBX9WxpLZmIOQPxUbHXfKNc+Av1W81YeC7dvRfiXdc8Is
YwjwgoRzFdy//yvwgTTzu3yiMhZ4QCg6y3rvgj/8Pp7rNhrVQ5/Q/ne9kD1h
4ivan9xzKPIuy3vwJ0/Ns+xPOxJR/3ND1zsNlVdoPW11P2laPBT1E1rKuMSX
fwM/LuhzSJayR4K/yBeKly9XofMVEmyLdQWZ6PulmNfe0ESWxoF+RW56nTqW
lgn6jTxZcclaowitd182jB+re4Xu9/noJSI7+xTmn+C9+Mf1aB7M97Ik1qFk
RIA8IZjJ8+9oIOonPc4seOG8CDofKaj88E6zNbqfheGNlMrVEXRfmY5dse8V
4XmYf0unBbvXF4eApyfjvSwTD6H9ved3tjLbWkyAPo4fbOqS7SEBTz0c6J+n
rDcAT12IpW0GGej7DLWf9Ys+uIbuF531NTN25kPfZ+fO6/iksKwb5kfn8Hj+
xXtzwMPXHWX7DBMQ72gux9uKbPAT1k/0Yz2jhSjPCpBt2pwt0f5FRNBSsGYO
Oj/LItFwRm5pHvjw6QL1DoPWCPBhF9/6busFdN/v4MnP9z6Eofr389SzUzQU
5NekylKjyZV58GvxndJYT9J//PqXIVZUD52nZ2rX+ZDxtwV9H1RUuvq9c84w
X7iY4slhdi90382jqboM8luY/yn/uoA0YTT/XNc9/h0MQPPdnYaT+Rc0B34p
YNknlB+D/D4n/CNcqA7dLztd0C/8/TM6vzzzJ6aX1hX1/zKYaTK8tafAfFo7
vJhvU2pE59Hamu49ZXuH7m9mpQ/P8q8BvTcEe025lbYBD2O/ib8w7e0Dftyt
P88weXsMPk8K7etnZtfQ/Te9DJmhW/ePwe/zKveaZ9Aog3+fk+yuWHoR7V83
rXEewDqn4O9vD6xKUcQrgDd2tTajW/r6YL8PP/dR6rcsOv8lo6eXlltSA+Nn
PcuskaqP7juXVAtyN9o6BeOzkkm5TGGZhvFRkds6LMLWBDyaMuuajuxA9/1x
PluQE4rrQvvH+xQcLb6i87U5Xro3PaJHYDxNQ5YouAS03ieuDvCXnEXnM0wP
eBZ8Y+6D9cz4AfEojdw+GO/B1Ba3b9Vov8rCNzI6ZrEHxmuEdP4O7t8EzL9l
5vuj7Zwj8Pd85s+9dHunYPyuLiZJptlMQh4No/R5VcfPw3hlMt7RHapEeWxh
S12is046rC8O2Bjlv52dh/ETTMoN/fi1G3giM/4uq6i3Ej2P1H9drziMvh+l
4PJOKfYj6HzDQmlAkFJ9L/CWMWfipVpULYyPB+0M6fzWSsi3IQSyFzt+HOq5
JW9y550s9P2M7U8eTokUo/OzmZb9yiV4dD/2epUpnkUSfT+2G6H5ge65GRif
9oG2/Y4END4Hb1x26rUmoedtlCzbINlJqDdMp4JlGjby4mbeu708E1o8jvZj
CfczmvVOlgLPrsTc3Jv/chbGI2Ju6Zjq/lm0Xr6YLHIqH+3/dGuM0IldL4V8
o1mGZasNTMPnYakedP9+GNVv158+NEl3B1E/iimjy/Fe9P1JJAGpP8VTE+Bf
3tKfAxzKZJj/R7YP6Ni4JuD5Re8A4aGt1Ajwtv3IQUO9d8PA29MvzzSuhU8D
b/XuuVI6hUZhvkZGCp54q6Lv162M1LtJH1kG+SzexozmUTM6byKz45rIzd1o
fVWxxDa6/T98HlX5fmNbCvr+RZG1ONsu/QTgc2QV5cyhMnRfV+wpbYUboej7
GbqnfF8lN3fB+JgwNgqxd6B+nU/BS522Dv0wHpbsHVvPqQ8CD+YeXefPNO+F
9RnDb3KtUf8MOn9/PO5U9eV24AEnfWkpPr8L5tu3b/fUyjg6f9CbuR+XPdYO
881hJ3bCkFwO4/eRs2X5udgUjM+v68+JfPEzMD767nNbZEN7we8yY+ySkhzd
8OfwAO4w4nQHjEeddverD9RJ0L9phN+13XmdkD+N9B0cGL3aYbzC/H6OyMnX
gb7+PniXJe07Cfz9cZxW3zhuCt2fbr7fPYGM+p30fsidPnoefX/FX5xjRMWb
NhhftdPzfum97VDf/L9v/8e0wbHNPHPq4MOK+jsT0C9x/tXP3kMSiE+3bYv3
2AX0/19TVx4OZfv9hyIiqRRFqCRZQklCGkKULVsUJdle2SIqUhNF2ZKQelVC
0mpplGwZJsvY9yGyZBnbJFvI8u13XT/nvH8+18Mz933O+ZztPvc54O8s3lP7
4sc9Cvowh1z+MFUR9RXTU0PeOWkE9NW72HnrLQKD4P+4iL3o58zGeRVqHo36
BWbYnyolyviCTuYg9g9lUsVtPfvQXoyutfg51gH5+zJfT/azJjivUIEZunfh
3yGIN7UvcEm3ZPeBvGSIVn2hKo9CvOm01tDr9uhn0Dc8ymtUjzI7wL/KO1cc
JsqD50PblE8YnXjTA/6WbM49yW2/e0AfNXMXpdcfbwV/y4LDlpxF+gz6Kb1W
yMmktgfiS5tQ2bSADjrEl8XctbrtSz8gnxhl67J0oKkH4k2jjaYpVw73QLx5
hfbhdf7WNqz3nHa/9+yOPcSbzDjZl9FevRBvUq/fGCO0dYP9PMRleTbGBOut
OBbXb9YzGQZ9KaHblRE4yMDzKZmd9k4NdMCTuWpWi9ZUG5xPjesT25ZOYX+e
qBaW0d2TXaDfeihmZOfvQ6DfGqPvxQYa92K9ClEhO2JhFOy1cjUj1H1PF8ST
CscXJCMaeyGeFEtYFSjt9APseaiVvt+qRJwvq/Le9PZe5X6IJ+uVm+df6WA9
lXY6p5p/Hc5vT9n5/MUdZgvov5jMu8Juo0Og/54ymojhm9GfGv9FP5M61Qn4
j9TcQ+0pxvl95EeJNSGqeN+eOFhOdjLCeifixM/VX20DQV9aSUk91hyrALwH
7WVYNxdi/odEWCqOZ1QA3p8K3tqtdbgb8N4168/Ld5wMeL81nHZeyLUG8O4p
rEAuSKsFvEfk8eiu/Ut3qI8aCHvN7twN/oiyUOZLZu8w4DtnirqFloHxjYTm
o0/2AfmA713v3Ib9XjIA3xF9Qz+nl/D8V8Khri5cugLwvVkya/Bw/jDg2yO2
STPuazvof3PJo9yNmXhfN+638pqAhgKIh65YcL60NKMB3jUpu13un8b8UrNN
vsEeb+wvJ7P+8Bp3Dybgna+ROJ8Si/fhKn8e+xp3GO9/08k7+GhaFIyn1hPb
F9dk4jwZYXoXN6MP8K0QddIlc6oJ8KpfEN6UIc4EvG4JM1pKyB0Ge2XHujv9
TDAN76P6PuIP02kB/CkGD50XL60F/PHuHbEQz8f5oBbE72vpLRlgzxSaK5Kb
kzvAH7jnRWjfKYn92FMrvgtbO+E8OY/R145BXCWAF81d7a5i1iWAF/oDPSf/
NIznav+9drcuEed55nxxlD6li/5fgcmYZvrrDsBLGXeIcbwqxi+EMcUC8TcH
AQ8k0gdv2z9+YO90xsxm2GU+Y7xHpmjs178I8k9Qyrnc2HUV5IdA/fTOSNMP
4of08otqgkXYP5r0jKQgn+eB9VY/J1nCiFdBv8q5B17Tti0Cftl4DX0d5o0B
fhEIpPRuoT41mD/Twpb+qxD7zzWORkpu216E/eV81KQ0pKKx3vGSYPP87xO4
/7IV1WMO6lifluOgm5p/AuhBOBlp7Z5ui/WQi9x/JLefR3p8XPU1tM8d6cHt
uUV3kwHoA8Lszsk2WWesVzNm5AVud8D5VSXG6SXv7EEfEFLPzap4nwd9QBIM
OSJ1yBP0AeGtw4WItIs4j8qqfqHnrwWC8456too3YpaY3xgRn0nd7gP4J0k2
e8p988J81FhU2GpNDeSfVHKNmaML4J9QpTHHpLhifqpmMexeqA3yzygzRtzO
EPBOmtOrlZ/yxPtcV4t2tbZ7AN5JFa05Xa99AO+kXr/FxxqXsT/k++aS7Rlm
eJ5fyxKjsk0a8E1QCHKXuXsN6+lEfd41svji/Q2S6+6jjdNqy/JDME25s4Z2
E+WH67yPwZwP2mfevT6Hl3aBfSaQRJZWOHEB/gt77uz8VyEA6/HkynT0rC4D
/gljgcPPg8X/038g/WmoGifev/TTOc5taof9DQ+c+GapdxvvT/k+oRZp3gL8
kvijBBteXsP5e4diL5v3XgX8Eogh4v3ZooDPxsrUmrVsfSAPj48FiRzagPOo
GbPG+3X6y+D35jUf9IvlIf6P230yvdqN84bYE9inKyP70F6qB+Ttu4L9fv22
1h3t4O8G+de2O3tL9BDejwpLDXp85tooyPNYpGRC/jE8r4shllQcW+qC9SaO
vBLo+D4K8tv/u0KxdBjvL3FMKj4f8sJ+p3ne305d0uwC/dIS22B/kziA95HG
r/8wVUsH+SxyvaU+wToA9kQ4hBa5XbsN/Md+a8ebtGTM1xWmnLP69CEG5O9s
rIC6XuMAnN8OTF0Xkehj4vltZPsbGVU8f/ILOWUgcmQQ/CWbrX30yGHMv+87
UPJ4QzDG72MbHV77tw4C/RMJHNPDVzB+iz+poLLTvRrvV9TJ21K4+kGfyEkP
ip3nwvN9D87KJ5msWB8yNiKk7UH8iPUgOX0rD+qjf1l7ymAs/8V3kF/WWOdL
M9QWkBdKmEf8NWuML6PvplpWGFNAPuKOP2aJ2lQK8uHR91nV26AV5FPBN2F7
d1oNrJ/E5WA6+Qzn/0qMqwQ3tVXgfMeS6uTSiiK0H+xrEj7MZcN+GLOrlIeC
coGfJcqPJJTPNAM/ies3sCQ15wM/eRLXPrFXwfsEorJK2XVHPwH/Kl0d8381
N2A/SY0I2V30RrAXFvW3FA5ZVeB5gIwGbUiWBvwZecgxdkyiCvZLNqw+utaj
EuyBzvP+zDsebcAvjeSvP7d/6gd8pHYFnu1gw/4qEje0om7o1kE8V+CeIJcb
8APwkSjW9SD4P/MFx3sHhZV3fgd9eov/j5bqthagh4KxRjT7eCfIs1pOiNW5
M02gP99VxLtuncH+tQJT936aJeM8m8m0MqeAry0gH9Rn8+TFCy0gz6aPe3mV
V9SAv5+pJreNtWYI9Nd1dU7KeNUw0JNx9qDH7W4myFPdhh119dW9QN/6je+P
8zlhPrW+WEng11Af0POd8LFjwUdwfgmd/kRWmCcT4s+DBfMXF+cZmI9uTKN6
UeKxPupBG238ewrYqxGld7abF3oAH++9nSr53w5AvFn7IcZg8BrWH4q23uCL
MIvF+/jUJorXzWiwTzSNBqe9Lb1AX53KD2tM0jGff7FtQaFadxDv95rGc/yz
fxDiL9O6ycILuS143lJwpjPNOAjsh5lc9K8nq3Cee7AD+cyeowNgP/RaHDK3
kH7gfVz564IePv3gT9zhZEY5rKCCfxCWK0xkLyoBe0gMd6L3FkRAfmGmWZE6
MFAF8rrVICJFVBHjCdFm8+1cyQMgv6e62hdfl/2E9zzlvm0S88PYf2wHT1Dd
P9Egr7H/2j40L8Dz0y9Vp8+oCI7A92hVRYe7ZVrhe5s38zs8evoT5PEERVlE
JgX3F/mQ70BywADsj+p4xqn+0ADE849kw/fLpQ5DvZA0MaHotNYI7L+RV6qv
yLYB/AEXMUGvvbPfgD+WZlHTARf7wX/PCU+ZDq3oB/tMeWW0uvkhA+yh84Uu
gu8+jNd4a3/Y1ZGwvrGxLMrn4H467Jf3wr7BYRY6zl8/e+K5uDzWr4gFq40+
2VgJ8UrYA7dfiZcxn+ZBa3GhPviA/RntL8az6WM9F2GL3B8eoUDgZ1FgvQvz
/+7vLceb/APb3H5Fg75xC3CcST5fC/Q8OBsZ6LIe+d81t0QVsX8B/Fx5a4tZ
hCCe7ye/PVpeXdUOeGh39pD51IvzwN+GKgnM1FSAP0VX+MjB8wznYxY+cyvg
fXIT5JtTwGnPRBzer6rsvad1Z54G9M9488p63ST2d/ekbKz+wazDfFeo4nku
Iyrw2+Z9q4B6P9abMWI6Ylznm4Bfmrtu+G8YHAV+9rgFir/JaAb6cbh7TFCF
64F+tcy7rz1eJAH/slfYry5+UQrf63RXGqrJQ30e93xoriSsEfFkvuv1eGMs
6jdLtre7bXLBvidXHPR686gc7OUR9a9PKAM4D1ks+GfNq+avWK/XaeRoYEMB
/cYTK2Xk4N4A/LJY32pRcpMG9tRu9dTLSo0W0HcKLtVt65awf4JRQaHf53Pv
gZ+pz5XVwibqQB6Vk2MUJ27Xg3/xY+pESp9fF/A7e6e7wcrKWuwvE99/Vfl3
NNjjyKcmz8Ziu8GfYm1XPdVl3QbyHCBklWieifPS2z24ubRKcd7ftZmmERPN
XpCPMf3Sin21TeBPyE2cvD2YhP4iL5FG97QoBPvPrtlYPU3D+nY7ez79EZV2
oJ9N9Ttb6b/+5vLveZqu57xlR0d8Ve/UsOhxBP65XJb9tdoCv6e0/wSNj/sj
8Ec6Rc1VaJgG9HZ6+cCwfKIVz1Pc6Ob28kmw30j56G0PH9bBfhTGdx55/gLz
8YT3SSdCu41hPxHhEnuJn/C9nr68vsoRXE/XM02RbO9k/P8RVaOzYv6wviAT
0Sq+a3gfg3CXh/cDVwfsj5earDF2YBj+/+SB74r3FQZgPxIaPvfGvAdgP5r5
bVJs5G74+7wv0dJX3MowvyTdriiliv2WJBj0+7QhPB8o+B24PUuoB9cbnuut
I+4Cz2RxMUr+bRqsL/34xJGFzkTAz/pgO6EVNgPgL7B6CIXMOzPg93lvHExN
iKBhfbX7VyHWVdjvycZnVnfNl1TAT7+J8Mq4/TjfrEOlqSN7B56PtbPf3mqo
SwF6zPg6xrJ8zAd68C6Qinv1cgA/PfPD9NmhdqyXZqNwGJFxntlj6row8114
3/BUw0LYnh04z0zyPg+bni3erxUz/5iot2UQ6Sfa4CY43Aj4OsXCMtcxg3jq
4pjljeNLAXodpxjK+Nxmgn8oPzOq8ypyEPD7VrBDODq/Duupp9v0OB8hvgiF
SRd2RAgDP6id2oLrOEcg30DnKTcqupGB8Rsl0XT1XZyP9O9BbTEW/lHML/CF
ba1y9YV8gomKNym6qQ/o+/nz79Hb5/E8cmwDa6Yq10vwzx4lMA5J3sB+DQn7
W4L27XsI+YE9xHTrzYRBzA+o8/Lc2ZEM9FHc8dOv6wn2myLJ+ZrrH48G+0Q2
Dwkr5Ed/R6dxX+M6WzL6o3rkg9effMD+Nw6K0xmleXi/av+HU+axWA+aGhiu
+ewc9nOiC2oUaR3DeIhUHtKVt9cT6/0eOgx8u/oG9INQiDhvlF0r6K9GGfmp
Yk0K8HNlS1q9oAL69wJRG66EzmUBP8nVnCW/k6v+4z8438+mmuPz3G7DVU1u
uL+FjVYK0c+w3sIk0M55203sH3Ip/FKmENYTEI4cGAh66wj6SvtRWdKfiFac
l36fbZicivOz0jl+p5QnJAH95Kz0BLK24bxx0b+LPhkQj/2DHXqVdNbFoT/t
r/Pj2U9/WA+h0+vGemIIrmeptneq+RKshzC44bvjBAn190IPOelhLqyPJ+CL
Jacl1q9q+xu0rV7E+YhytI/+ayTQHqcbNq/nWIHzvezTrv6SL2bC+l07T2/0
vjQM6zd1+Odu+WgN4Df8jwR7vwv2S7vwS/5WZDPO0ygQWrJK/dqE+xGZ5P2T
ehH719mJfKoZxHpmgmpz0GpbI7SH9PykVhPsZ5ZwvLC/Xusjyltvla1WJ/YD
Ts96uVMpMgv7lRH9NOZ0C//T39finC/brNry+u7UPhPWz/4C8irEkqfpGFEO
/PDsPUII60f6hVXsnb1wogPvj7GJvFcZGIL4dubL6TWVtGH4fZcfWVNCJliv
KdeQc5252A36dLz8UJOxK85jLWgVi6I64TyTMyV/brsFN4L8W2RT04P+yuOy
vbcKGDVQvI/6rc2IYvs5EOWZwyGnnjqO9YiMs7pBZqxIP82bcVdHNQZhP5eo
H8tWyuP518yDAj5p5z6Qp9U9c7XKLzCelZ5n+SO7qQKeta+8XSeRgf14rrfU
Je3/gP7+2NYL7EGZCchvacWJk5nq8GzqPR9hdrf4P/g94Z9Vg/35wyeFv9+c
HML5dqfnz9JF0N4TTpmlFUulwn7uiQvaXvuG5ylq5uKbSm9jf/uLzF7uRB+0
Hww+Q90X9Zkg34bdriUiC9i/gSxQzmJRj/1Zupt4zoXkDqH/YaLDutES5cVj
xya5BN73IJ/hoefKg12YeF40Ler/gBPPr0jvkkpKP1zB+WDEQVORrBHAUzrP
eJQcL9b/lczOE2l7cN74yy/BU75/9f4yfQbcPip+XIXzWwjvoq0fN6YBPczs
w1L4FbAegv10yYY54RHYv14e9+71uX1gH+V3PDZmY6K/Qpqbjd19JQzP01OE
7pmcYUB8G7pxS89dfrRv1ya/zJuqMMCeFa4nvfp0OhDi2+RYDwuuzAGIb6fW
su8K+cufZfs2fvrBCMtf/2g5vqrP2msofY4B/s/nkQ2XqzpGIR5w+XXzjeK1
UeAvt3WnULxlEfZ3zvtHNkMR48OchHDRb8RGsM9rrA/LVkkNw/eUtC3ObzmN
+ZIu46mS+1ZY/6hnz/+H+bQB7K+ag4CoaAP268kqmpbJ48J5tHGffPiVsvH3
y1T4FSZX5cDvVWz0OPD7HgP8rYXHETTzOTzfIwS7LfxWvw/fr6cc19Yzw/qD
+968naVSWH9AKOPa0695Fu9nSumamjt3gf6qjElKbVnEeQD7chn67Iqo/wtr
3FIX3j2C8zHi5ot6FqtrIf92oCrO/9EF9HcIf84JSPlhfqp2xNOZvukl7N9W
yX/Rma8O7A+Jn+FCXnkT///6Tg6Ofy4BPZbfL8uvpKElbcCvCejTvqdjSvpk
BdBH+v/fL9unBC6tuZEjD4Bey8+Qb/JyivxumQjPs4JkG4olA/abNrIwrWra
hfO6X/EcSzidAfJr1Gt1dI0X9n+KEN/Q+YWPDvL6tpBfk6jYDf/PfSpLfXHF
KHzf2d3FPP1IP7yvLZNm1dNKhfzQ/HhFqAO9E947ZTcv7D+XAfmftlLhPaWb
8L0NU6hYcxjjW7lXgzGtzXlAv3j1QqMwDwq833LM3Nixrx70nWpTpk74Kuy/
6hn+9ptvJN5XnJEhsjhtHIL3RIPk+KfXc+H/x9WCvLsrEX8jVVxsYS3Yzyei
LdluYpKJ8uxu5zNScgnvXwrvMExpb4Znp/xSJeN9WXj/iNxrdfkJ4oEY9YJ/
m3ksvG8v/pGueL4b8jk6+gS9f1lxPaTPq8rygl8A/eIL1HL3iWN9Y1DY8MJY
VwvwL2w3X/nljWgviLFaG7zkcd6ZgH5+IvUG5t+Wn8F/e6//4O5Kc8ALb46n
tKTSV8Bj78Kt2YmZssP/A2hqCyw=
        "]],
       FontFamily->"Europa-Light",
       FontSize->18,
       FontColor->GrayLevel[0]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
       AbsoluteThickness[1.6], Opacity[0.1], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18,
        FontColor->GrayLevel[0]]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
       AbsoluteThickness[1.6], Opacity[0.1], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18,
        FontColor->GrayLevel[0]]}, {}}}, {{}, {}}}, {{}, {
     {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
      StyleBox[GeometricTransformationBox[InsetBox[
         FormBox[
          StyleBox[
           GraphicsBox[
            {Opacity[0.8], CircleBox[{0, 0}, Offset[3]]}],
           StripOnInput->False,
           GraphicsBoxOptions->{DefaultBaseStyle->Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             GrayLevel[0]]}],
          TraditionalForm], {0., 0.}], CompressedData["
1:eJwNk/k/lAkAhw2aIp+SY+kiR0glunX45khKhNpitU1SNipdSpQkilQUJTTZ
hsI6Km2O2shZVMQ0M4555yLGmJl3hkiHsn54/oHn+Twm+476HFBTUVHxn4Ay
geoE7pSUP4cTSEzS42jRygmwfJkJnk1ikD8iRleVstC+XHQtcTkf/zjNs7WK
+4DKyJ70R159sIsSrzIwY6Imb+3ZxIVSSLn2H2iGH+FQ6zJ72bs2KG9KRoOy
a0GhCqs1QvoR6XvLPCasE1kEI7C5ZwApoea9pl58OETtot/pEGCfVdLOZG4b
orPGT7f69KE+w0wa/Z4J87LAX08s+7EvVGTLv85EgXtTXM9xMWy+1XrmjnNh
pnvBpVmPBGv+YHnJVC76Ca0lY85yfONSCKsVnQh4c1Nw7a4Upge8+X2NLHCC
znDD/UmwH297VdzUBdqTzRo5QQro8m9kXrfrhmnkqMn6cBJ1eoTUq5qL8+ci
Kr5ok9C/pFljuIgLN1MH5sU5JMqmzHFNDCBgPECVbFfIsZCwtrssaceikCNe
G3r6sHnwakvFlU6M3Gm/v9ZOgocc9cGT7A4kb73ln0coME0OE5alENH7t25h
1n9CTvYfhpF5HaC7hw9fzRXjutIneBOFi3/1jUbdUwdQc6zFjj6vC0qVPdRs
qgy+/EH67SNClPM0DMJe9CH/cpqpgEpg+rzFppZqn6BrO+B6xY2F2/nP3F6m
9eIF693dAmUX+H4RpTKtHuhc86ZPpn9ARWiqtLlKgqodvZ5VIhZop7w8tAUi
dBfU5BlqMLErNiK2cLcUawTrlrv1deHv5SfXxDAliFcPSckJJTB8Q5CenliP
1Ja3abayahwEo4bB6MaL05rJ9wvbMMXF4wvzsBgjd395xze0Iypy1nWley++
Mqi9S3d1QNNnpfUPiNH7YH5OkxkHFbPyqvwbpKCUJk2vutQJ/dgjeeuqB5Dp
unfqigQByj7tuN8gEGI2bejoxottSA+ep/NziwjNLmEGBavrsFn1zvhgtBj5
+0bMBfaduKkvi3000fdQb2pmvo0IgqTGbX4T/QssdtRGygg40qhDM52lCByN
H25awUZtfYz/oTcyfLqXoyku5sGgn+L/UodE9szAZz/IbliqC9emFErgGOrp
QHvPQenx1rrW+T1QdT/8UV/JQcor34Cx8E5Y63N1vvo3wISxmz98Y+KX8DrV
B9s6oFUsSDBqkOBRSUyerQMBlcpETddN3bhpTC14yWOjp1q9zKVSjKRbSpnR
Ww4C7CKO5ftIsLGkIrr/DRtqOrZfT3rLUfiLZIX9J4RkxdGMJUZScJxacrTG
OuH8TGiWsFeC9mI9919jXNDkWvEZURI477af8fAEH5TiEvuEjAGUi1eKuVYE
VhXaNkSOy7Dbiue/IIQLhkIo/B5NIqnFa01Keg/KDQPVUs6LEKpiOfnpvVZk
BjjUOtHFcPZlMAoXcPG8f1nsIhkPk+wsay2q2VAM7Z97UE+OrLrUhZUnBCj2
XRZMuSHH2SJH7aJMHowuqO2ccUKOpRZLpxpvmPhNGsR00iBR83jSo+BYIQgT
m1fG2xXQP51lPD9ZBMRRGx3D5UiYW7l0mN+Fn3O7ekmRHHFB5fFCCwLJH38O
yhvl0On4/XWJmQgbgyf7cc4q0GpWl/sxd8Ir8+D3TTEK0M5p10amieA4smws
7bkCo5PNMwdthDB2U9j1WyrwrmjUpKqUg9/qh56X6SpwqUC2R2rEg/ucQ59D
XiuQ+7RomsugANWVTV3TXRWY0efR/PYUgSVBx6L8OkmsRrSnKtEON8ehNu7l
KiSU5IQqPd5iceO74/IyEurpZ8pCPgsx4pmSWHVYAdO8ZFc2XQgj5Sy533oF
eKPeswPjBTDrPjnJqoGEE/vexb+seWCw6Q8YLiTs43Ir7NeL8D8sOPRn
        "]],
       FontFamily->"Europa-Light",
       FontSize->18]}, {
      {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}, {
      {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVkHk01AkAxxm8pJfIpjdZta5tK2KETcU3R6TbtdbbCSuVtW2p5q10mnKU
I2oV27hCKC+TY+gYSwxZucZg0Mz8xpg0zp92SUoza//4vs+fn8/7moSe8jlK
UVNT27+4/7nnqIJfP+rvXNOxIUqs4eGs6bYmkqDa4bbzBW8BzRxbcjOzKqnu
cD5U71VMs8PedmFFNtUPqwZku27R3BEQNld7mxqGGOMZt3iaH8TWCW4pVAaq
6xYaYmhhyFt1MD6RGgu+HpNymcYAU7ty/Q1qOoIc3fIv0mLxY+B99vT7QtR+
8057ROcOlqmYdM+1bBBaLfp0t1xYeE8pGpOqEKp7mYnCQkR1OCJz5hlCrkVr
xRs8wuoqfYm6eh0UJZSKfy3YqJa5tXXuaICK9cEuyacCDRHZRoETPMyz1V57
anEw+63Tise/vYJjlvdsxo0aUOZL9YwsWgEn3weu7s/hoAqp9i1rQ2I1azSm
i4u2WLuO5o2d2LXw8fjYwTqsSxuffzjVhbALGg5CykuMzxGSXptutMitKNc8
GlA49qJV96YAqSU2+vQHjdA1Libl8h6kdDvVtn7hIfkXzrE88z6ww09u0UAz
PuwslYdfEWJLYNREOOsVGLa8KsPGfrzhFJzKlLaAKOMl8U0G8fZEif3szlZ8
juhhbTj/BusTazLf3XuNTS5LlMdeiJBiMNZUIG6DZ77J8fLVEvjNzdinbO9A
lHGw6RCdADzNInde7YTlhP8y4X4pypWPC9x/7oLBimlt3icpZuKrn6h0+dCs
Y7HNsoawu6krf105H7/avRhYuleGDpsAh76QbpR6heb99UGGyM7QzIDlAsyO
r9EbuTsMM/MYwqlMAI6vp0a6uxzaRUtbntN7cGV3XG7ViBxKceGdLFUPTMR7
+gvi3mKFVxPNK7cX276PTafajsB3yPtU8r4+0Nd2zqsLRlBsPX3LbqoPs60p
skjmO2wu/eR/NluITM0gho+5As0iQ5WhSz8MJJx8Ck+BaJenv8cN9UPrEtPP
8fQoggVNqYmpA1B7GMSWrRyDv9HblBnaIM7cY6esbBjDpbRIq9mhQdRuuq6t
f3IcL7cyWfU330B/zxnLq7oTMMwomJq2FkFk1SWI5k4gx9R2uEYiwpMcmMuD
JmEf1s0dZopxmO2gb6ycxGj/XNigiQQxcfeZokdT6Dx/o+x4pwSPFcYs3X0k
mrstxYGnCVzPjguRHCDBuOq+YMkgEOYzaVHmTcLMlm6kFkXgay73yf4AEsxb
SYFFFwkkpv7UnBxKYsehsd5/EgiEO/z5XieaRGV7cUdSDgHT2K92Lykikdti
Wl/7moBy68XlwhISB85tI9I6CAxMDncXlZJYWO+jPMInkBZQedijnERgAnOH
jpCAaqPP2TguiVUe0qc/yAiI+Kk5GgISSY3Z5eRHAk/j544IeklsO8vpavhM
IH178IaCfhKjpu3kHSWBvQ82V7lKFvtdlIZrKVI8P9f+N3N0sT/Pyp+3RIq7
Vvap3hOLvnPP5FZLpTgty/IzIUnYHNrFyNCR4rt9J4j6GRISFf2PiOVSaKr3
FKbNkagWKkx7dKWQcrZHhHwicZPNqHDSk4IbUWBt84XE0QQ112J9KTLWLZtV
qRb/CU7m6xlI8R/c+Xcx
        "]]},
      Annotation[#, "Charting`Private`Tag$104058#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
   FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
    "Europa-Light", FontSize -> 18},
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox[
     "\"cosine distance between whole\\ntrajectory of same ASV\"", 
      TraditionalForm], None}, {
     FormBox["\"BC distance between communities\"", TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[Medium]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  FrameTicksStyle->GrayLevel[0],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  LabelStyle->{
    GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {0, 0.7}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{
  3.78570128666913*^9, 3.7900105996584444`*^9, {3.7900117642518306`*^9, 
   3.79001181270316*^9}, 3.7903612409019165`*^9, {3.7903612963379726`*^9, 
   3.7903613073314176`*^9}, {3.7903613594670277`*^9, 3.79036138895943*^9}, 
   3.7904465212046022`*^9, {3.790446642260542*^9, 3.7904466511709557`*^9}, {
   3.7904467476698017`*^9, 3.7904467587771063`*^9}, 3.790627791576948*^9},
 CellLabel->
  "Out[595]=",ExpressionUUID->"8f6fc928-55e3-4cf3-ba6c-fb7edaf564bf"],

Cell[BoxData["0.6266943736255245`"], "Output",
 CellChangeTimes->{
  3.78570128666913*^9, 3.7900105996584444`*^9, {3.7900117642518306`*^9, 
   3.79001181270316*^9}, 3.7903612409019165`*^9, {3.7903612963379726`*^9, 
   3.7903613073314176`*^9}, {3.7903613594670277`*^9, 3.79036138895943*^9}, 
   3.7904465212046022`*^9, {3.790446642260542*^9, 3.7904466511709557`*^9}, {
   3.7904467476698017`*^9, 3.7904467587771063`*^9}, 3.7906277915849543`*^9},
 CellLabel->
  "Out[596]=",ExpressionUUID->"fe308897-c4e3-4ae3-9557-c207f50b9b73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"unifrac", ",", " ", 
    RowBox[{"no", " ", "predation"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"labels", "=", 
         RowBox[{
          RowBox[{"Import", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
             "\"\<Microcosms_filt_unfilt_wUnifrac.txt\>\""}], ",", 
            "\"\<Table\>\""}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ",", 
        RowBox[{"dataTemp", "=", 
         RowBox[{
          RowBox[{"Import", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
             "\"\<Microcosms_filt_unfilt_wUnifrac.txt\>\""}], ",", 
            "\"\<Table\>\""}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", 
             RowBox[{"-", "1"}]}], ",", 
            RowBox[{"2", ";;", 
             RowBox[{"-", "1"}]}]}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"unifracs", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"labels", "[", 
            RowBox[{"[", "j", "]"}], "]"}], ",", 
           RowBox[{"labels", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"dataTemp", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "@", "dataTemp"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"Length", "@", "dataTemp"}]}], "}"}]}], "]"}]}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"presentAtAllPastT0", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{"#", ",", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", 
               RowBox[{"2", ";;", 
                RowBox[{"-", "1"}]}]}], "]"}], "]"}], ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"x", ">", " ", "0.00"}]}]}], "]"}], "&"}]}], "]"}], 
       "&"}], "/@", 
      RowBox[{"(", 
       RowBox[{"totalExpDataCompositionNoTime", "[", 
        RowBox[{"[", 
         RowBox[{"{", 
          RowBox[{
          "1", ",", "3", ",", "4", ",", "7", ",", "8", ",", "9", ",", "10", 
           ",", "11", ",", "12", ",", "15", ",", "17", ",", "18", ",", "19", 
           ",", "20"}], "}"}], "]"}], "]"}], 
       RowBox[{"(*", 
        RowBox[{"/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x_", "/;", 
            RowBox[{"x", "<", "0.005"}]}], "\[Rule]", "0"}], "}"}]}], "*)"}], 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"presentAtAllPastT0", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"#", "/", 
          RowBox[{"Total", "@", 
           RowBox[{"presentAtAllPastT0", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
        RowBox[{"presentAtAllPastT0", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "presentAtAllPastT0", "]"}]}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"presentInAtLeastTwoWithIndex", "=", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"GatherBy", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Transpose", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"ConstantArray", "[", 
                   RowBox[{"i", ",", 
                    RowBox[{"Length", "@", "#"}]}], "]"}], ",", "#"}], "}"}], 
                "]"}], "&"}], "@", 
              RowBox[{"presentAtAllPastT0", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", 
               RowBox[{"Length", "@", "presentAtAllPastT0"}]}], "}"}]}], 
            "]"}], ",", "1"}], "]"}], ",", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"distanceBetweenFinalMCs", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"SortBy", "[", 
          RowBox[{"#", ",", 
           RowBox[{
            RowBox[{"Length", "[", 
             RowBox[{"StringSplit", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", "\"\<.\>\""}], 
              "]"}], "]"}], "&"}]}], "]"}], "&"}], "@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"SortBy", "[", 
            RowBox[{"#", ",", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"StringSplit", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<.\>\""}], "]"}], 
               "]"}], "&"}]}], "]"}], "&"}], "/@", 
          RowBox[{"GatherBy", "[", 
           RowBox[{
            RowBox[{"Select", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"unifracs", ",", "1"}], "]"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"StringTake", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"StringSplit", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<.\>\""}], "]"}],
                     "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                   RowBox[{"-", "2"}]}], "]"}], "\[Equal]", 
                 RowBox[{"ToString", "@", "63"}]}], "&&", 
                RowBox[{
                 RowBox[{"StringTake", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"StringSplit", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<.\>\""}], "]"}],
                     "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                   RowBox[{"-", "2"}]}], "]"}], "\[Equal]", 
                 RowBox[{"ToString", "@", "63"}]}]}], "&"}]}], "]"}], ",", 
            "First"}], "]"}]}], ")"}]}], ")"}], "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "1", ",", "3", ",", "4", ",", "7", ",", "8", ",", "9", ",", "10", 
          ",", "11", ",", "12", ",", "15", ",", "17", ",", "18", ",", "19", 
          ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "1", ",", "3", ",", "4", ",", "7", ",", "8", ",", "9", ",", "10", 
          ",", "11", ",", "12", ",", "15", ",", "17", ",", "18", ",", "19", 
          ",", "20"}], "}"}], ",", "3"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Monitor", "[", 
     RowBox[{
      RowBox[{"distanceBetweenFinalMCsVsFinalDifference", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"distanceBetweenFinalMCs", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"DistanceMatrix", "[", 
                   RowBox[{
                    RowBox[{"1.", 
                    RowBox[{"presentInAtLeastTwoWithIndex", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "All", ",", "2", ",", "2", ",", 
                    RowBox[{"1", ";;", 
                    RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ",", 
                    RowBox[{
                    "DistanceFunction", "\[Rule]", "CosineDistance"}]}], 
                   "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Length", "@", "#"}], "-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", 
                 RowBox[{"i", "+", "1"}], ",", 
                 RowBox[{"Length", "@", "#"}]}], "}"}]}], "]"}], "&"}], "@", 
            RowBox[{"presentInAtLeastTwoWithIndex", "[", 
             RowBox[{"[", 
              RowBox[{"k", ",", "All", ",", "1"}], "]"}], "]"}]}], ",", "1"}],
           "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"Length", "@", "presentInAtLeastTwoWithIndex"}]}], "}"}]}],
         "]"}]}], ",", "k"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"distanceBetweenFinalMCsVsFinalDifference", ",", "1"}], 
          "]"}], ",", 
         RowBox[{"x_", "/;", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0."}]}]}], "]"}], 
       ",", "x", ",", "x", ",", 
       RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}]}], "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"distanceBetweenFinalMCsVsFinalDifference", ",", "1"}], 
          "]"}], ",", 
         RowBox[{"x_", "/;", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0."}]}]}], "]"}], 
       ",", 
       RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"myticksfull", "[", 
         RowBox[{"0", ",", "1.5", ",", "3", ",", "0", ",", "0.25", ",", "5"}],
          "]"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0.28"}], "}"}], ",", "All"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"Opacity", "[", "0.1", "]"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Unifrac distance between final communities\>\"", ",", 
          "\"\<cosine distance between whole\\ntrajectory of same ASV\>\""}], 
         "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Mean", "/@", 
         RowBox[{"GatherBy", "[", 
          RowBox[{
           RowBox[{"DeleteCases", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"distanceBetweenFinalMCsVsFinalDifference", ",", "1"}], 
              "]"}], ",", 
             RowBox[{"x_", "/;", 
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0."}]}]}], "]"}],
            ",", "First"}], "]"}]}], ")"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.8", "]"}], ",", "Black"}], "}"}]}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"Graphics", "[", 
         RowBox[{"Circle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Offset", "[", "3", "]"}]}], "]"}], "]"}]}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Normal", "[", "fit", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"fit", "[", "\"\<RSquared\>\"", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7857001820819855`*^9, 3.7857002036732473`*^9}, {
  3.7857002348622923`*^9, 3.7857002360051*^9}, {3.785700371611206*^9, 
  3.785700371981468*^9}, {3.785700507910564*^9, 3.785700518251874*^9}, {
  3.785700559185807*^9, 3.7857005627513275`*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"927e79bf-2619-43f6-966c-87defc83d168"],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
      AbsoluteThickness[1.6], Opacity[0.1], 
      StyleBox[PointBox[CompressedData["
1:eJyMvXk41N0fPzyEpE0iQiW0CKVSKPkgRSqhkoQkISGF7JJSZInsbfY1NPad
sY997DuDwdiXFEn16/c8zft8r7ur63nuf+5rLkYz57y28z7vcz679e+r36HH
4XAH1+Nw//f/F+Mdd0+11mGab2N3jznXYCFvsCWRtCqsf/B2Y4ddF6YdrGN6
UrcAU+Upj1UWaMJiuuI36G3Mx1zG0vePK7hhLRWfGVb1ajDc//PfHLbgRjnL
4UzA9N7I7t1/MwQj7TD/vmHvR8zlMt70OdcL7OfP4/4s7kXY4vOr53Xz6jCP
mJ8xBhJ12Bzrs1Uf7WxsRTWRwdi1GKs0UFlffK8Ni+RIK+GXJ2Bc9hcPPuwp
wVrdT70Q/1yM6UkwbnNWeIets4/TGdxchCW9GeVSrO3FfM8p5edYV2GJ2bIC
hfg2bGb+gWbu11pMVmeiMn5XA3bKvSamOqwMPi9n2Ab/VN8yTEGP7lFdRSUW
xvLykWJyA1b+VoXxhiMJK9Fs2rdnSwOmbJGZIf++E6t5YfWlcU0DVlk0WiVb
1I4FVyU0GztXYgy6kXg/hXpMfZ3noaS7lRh9PSefMnMnJrTb11JPrhKbWvtk
TrKqDGve2tLLIFaKrVquVXus2Y89DJv49mG+CnsTOHDE+kMX5jS5/ph4SCmW
KVfv1aowia0Lt7bTeFOEafXYt9ANdGL1Ow3o9qZWYwV4YSxNthsj63hU3PWq
wazOhT6oDq3GQszmvLmHqzExzeGJ62HdWNgTnRe7TUuwVZlvPT2iZGw40Wyo
8WgJFttdMqnU1Y09fMpyf0zz9/c/SMhS8WzHkliOJYg+yMF8b7Se888mYnPZ
sq/sHCtgvAQ0ha8x7CrApNWyDM9nNWP8u6QUcYdKsAKRm8MMinVYfdZySEJR
BZaEe7/mkjsR2+VRL/4OV4nF33It2adYgNFr7U/aah+G8QVl363IS8AqLr3w
OqObjeGuutK/V0rAIsfVRP3el2C2EhP6ljk1mP4BHf4Ermr497/dqlV0nSjE
fIPKGDgKErC9k2yXd7oWYbjXvGq4Xn0MC64uy3OsxNhtKA5e0kTs9AlbrPhu
FUbutnI3WZOCndVo12cKz8EKXL2jEhWbMAPW+2bOo7mYnpNf1AbOTOx7H4On
ZMBvfLSoOH3SiMJaVLxC+pLQ979W427S/7kWXvcWM7bW727EpuWcGziyZjGn
QUYnlft18PMi/U1dc1g5vM6Lm7+8l6ECGyI9X2R8N4td8bsxdWSVCD9//N5W
qONTKaZX0MlfuPcT5vNtaN0dnQosJKWTzPG6AcNb/KqZulqLLfuljn9Ty8VO
Ga5scGguxPA81x5EPWrHfl1bU6BumoPxZa272KVSiVGFTZgl72VghBLCOdy4
GzYrdNRxXWsxJu1Ta1+kUIMRBXlibMTqMLyzkmvDhzSszvjXbvP6Uuw4xSKS
37MFw9w/Br7L+f15Pt/I9FrOwYYPnrLmwUox32NdTqbHPmKGDtH86r0kTFon
xnvtZBlGVZY4fEWrCntX7k13l68Jk5vjTd9+ohTDf9B4Va5Yim1WnhCun83H
TMO9QoOOVmHGgnx757MrMIZgvQctTQ2YHf8Zm3S+3+Mnmjp6LDUQW92rGEzO
bsSMXyte+XEkDWvS+LywYzwb891RGb1hqhwTDtwTV9Faiqm8xVN07v/ma1Jy
1caHmRhfq2fQY6Vi0Cs2ZSavs8PNoEfhtTaMvkXRoC/yJxhjNql1YRadvp7Y
hmpspN/WvunuLOBLXGByb6FBK+CFfGN12wf7KExO8Eh3shERuxY9GYUljcF4
iafGPtqX3olRnEp3B66vxZ4Mxog+XJrG8rVHcEcmyrH4e67Gxwyo8Hlw9X4X
4l68Bj3EkTIERR2PwPzIKseHPzLxAj3eIbJiJHV2Ar4fozP1Oi4M/T0l2bWj
TnapoLc+v26uNt4YgO+b58gnfEmHCt9XzGflyeNn48B/Gh5p/F4XvJmSvzgK
/K7rdi6bdhxG/P3z+4lcar3MvxDeaePXfP3cg+ykKeDnRs5bo8HJszCe5vb7
zBQVW2E8ae+n4dW0dWpfQ3kTjK/y881+F49Mwvi+JlBjKA8nAW8X8atrcydn
sbEUX4/XhAZM4vOXJaG5GRh/2t+n+R2Z501RgqIvmo8/P6fprbK/fNwGtQnQ
Sz7e//f3aXyg/T7t/QRXtU+rYp4wX//9uWyk7uWDh8phflyWHDe7lZDB//47
/q1xAsdCHGZh/EMY7PhtJ8ZATwmhkRf5ll/AeJU7lPpf+EQBPhfYrFdwvjkL
/EzMuxhJ93IEvr8vneDXeK0k9Hk7N60PmosBfM1Z1vsVusWDv4cPJJn4bXuH
vs8IiRDf8Qa+D9fj2JOfduIBzzMf14bbK1Dh+4VLiLDfvx0DeCTvmTd0JiWC
v/vm3ZiO3BkBfvnOP2lW27kM/JIhhv+c+I9y8EeluNaXcVVFMF/k1vFLAjbx
4I9zBvcbthlXgT8e0J2JM1w/BP64LNR4gh4rA38UOxstxO1UAfMtZqep0JuT
i/jR6ahy7IAR+CFuUKQ94pk9zJeY2eVbBqaZMF/h9Cd+sZ7wBz9keH+K65bB
LMwfTtZiqUleHfhEqCWwkaOegB/qnc28XrXTF/wPt381I+6OHfAr3G+mZLdE
FvDLJdXyNEubM/gf6xdZlrjXs+B/uKAehxQ3deAfjnB1anr5BvifC2P9Lvu4
QPAjVen2LsFI5Ec423XLhRG+4Ed3L1bb5BpOgx+52AjfyJe1Aj8iqH75dHWr
K/gR7uVX1rxqH8Drsozm6bHZHNC78p3E9weKhgG/kjjJ5ZScDOA/wfLq1QDz
LOBfvMpKXal5KvjRMdd6ozBphHfclFV9y2ZP0Afc8prLEaZG4EfhxY0NN8Rj
wI82qHrNaRvNgh8dH2GYF/r9muZHowUfV9RYZ8CPXGqzWPXpLMGPZD/3DA09
9AI/cmlfOGqTg/jhuy0s+NLLWeDHVQWsav7qNHx+QebON4dDh4CPV/bcs0qp
qgU+JlnGW/GI1wP/qPnbMtWlyuDvG68/O/wZlwN8E5za8ck3qxb4JiantnbL
zXLgm1dnhv/BbdOA75zgJ4fu3MoCPLvUbRCxe5sIeA7YrF5asEgE/LKu3aKr
5hAN+DUW2vmTdxgP+B2NP8D9YoEKeHU/eodH8FwG4JXC2SA/ji8HfOKL+jnf
SWYAPi1kr87e2pwG+PQ718Fka0kF/Nja3yhTWCkGvKiuX8Omci4F8ELOLhT+
1PkJ8FLHZSfAwjQG+LCS3BYtJEoEfLgX/Xx2OyQP8DG/cU6qQWoa5lvs+h78
o21RMN9H4pQabxwfh/nuobcZCkoZx2jrK4vnu26vaaDC/AmnKDpq5o3C+klS
34NZwm8U5pMr9M0O/svpMJ8zbrsb4zL6Yf5Mz2VonaMfg/VNfLPi9BPH2b/W
N7T1zDjvoVGr0UlYz2yh4/m2g2MW1iu036fl7SuFirai2Sj/mBnfcW0VnIT5
2vKa0ZSePAPzMzPKnrZyvAPy8cXMChZxk2HIx0L1Fya+fB2B/Ptff9dTSuhy
34P83a6doaNvaBzmIzN7UzbH1VkYH/rDZTp3LvfD+DpvL840yaGAn1naCJkN
844Af/pjd4o/8x+D8SdpPs24RB3+5/rVAc/EaMgzAeMfPWvN4qEzDXyNdcMd
2EKhAL+0qy4+z1+hwvwsplwyFOYdg3xF+/s0vomtzxeVuDwN61eX1zi6WZwr
rF9xccxpJ09Fwvzq+RV1n72dBvN7cIe+w/FfY7B+tVAL3TwY8BHmN/zWV1/h
k22wXiWf4q8b/5YF69WQQtZN8vGpMP+ESpcOutZIrOQ958Z0UjmmwMLAJ2U9
BOvXUYaGkgrlbvBjl4bG9Sd2vAM/JuyvjNs5+hHWr+pzQsrcl8fAn1U72PIu
EvDgx/obRfINh9vAj43Ng3OGIzPAj/nm5lQ+6GSCH/Nho6y3o8KwhospVykb
yjBpil9re+4Q+LM851L8li99oF94R6HEsPI0WL9mONNf3/R8FPxaz3+7l3Ix
8meS305fUlw7Wq8yPRKKF88FfXPZlLyFnbUA9M33otJuz7FYyLt33SyMtk0O
gd5F+gkX8rb3A58W14zqPN0yBv6tVHVo2eBJDfDp9GvFV1GnyODXLjXE+O39
8aCHU8LnTjp9qAe+Xaj4omVBKIG87OEXcsHywTDo4yZ59uSlZDKsX2XYtuhM
yI0DH9eI+G+VXRmH9SphQ/qGSmsqrFfz9T2ft10cA762e0Q4lVuMY/onPfJ1
g8KxAAH1zcpCFFi/PpUcMRJUnoJ84MWTmPS+qx7ywdxQTCibWy3kA1zlD/3q
hdeQDyzorOkZz0ZgHIkqJ9/yVWDbLO/7xT8fhrzAu7X666FtXeCPDZu0VvIj
B0G/nxXg/SydKkEvpKvtJjeHt0D+J3K2ZWy+Mw56nqbxdU9H8hD4/cx7gVVe
Ign83n3VuaDyt5/aH6Zfu3WxFlNm7+8IrhsE/+c6Kb2JWNQPfjC3e2m6siMF
S7Vac0hqfTmmuXh0dP7+MPjDh7OR5/bs6YX1R4gQbw3vz0Hwi23Xt2v31w1g
fga8duWJRCzudV5KTt84Wo+0lW5OK3gEesec4+P47VEe6N2VS3IP9//mKU3v
zLvvilxfIIPekdN2e2e35YPeuWCxj6RCs0DvbK/73yW5psG/xyezuMdtfzLo
n774AQY9twHQP5JWmcTukGrQPwMT7miOqBHQP/zVsxLyTbmgf+FvMvN9bPJB
/5Z3CQor/uYnTf9I7AXifYXpoH/uZEz7DLkb9M+l4HqYEeEt6J+Yji8fR24E
6B/7gFjv4n4i+B1eaqbrpnEe6GEd0U3/I2kC9FD1ZmDMY3ukh9EMr9UEZoZA
D3OOTWvvSckEPbRYwDG6f8ODHkoHPa/aZlqF6nklHe9njzaBHorx3F3MN0kE
PRQMlz7E1kcAPYxtqJMpsmqB9QrxhmppWW8+6OMmqT7OdcRx0Ecqy4Cn5Jli
0MeksMOynPJ9oI++fGoupBsVoI/Rpkq/xg8QQR9tE/r2sM6SQB99phVfTF1t
BX18aSm9xlxvAPSRWDgt6Do7DPmPZbw0wcxhAPRSX9PZnTdqCvRykKXpVB6e
DHpJNr/S7RFZA3r5+LLQzOoWMujlmzTmq83PyaCXQfqlYS5SQ6CX+2tWQtoj
8KCXG6aUdys6V0MeofIUSCV0Z4N+HjzOwcTlPQ76Kcmeb13DVQL66VM7F9yo
3g/6iRfnnRo5nAn6yXyT3urRi3zQz6nvId/XRZSDfmYUPXDgOlwF+QYv4Pf0
4otC0NM9HUs75S5PgJ7iRTu4/baXgJ7OnNLUepdPAT3VY1ZddyYuFvSUL/7c
w4UjoaCnsqYfzLNvV6H1l+tbWVPZCtBX90cGDC4S3aCvXw12FjzLbgF9ZXL4
zlQXOAb66h5wca1xST3oK5+BXqSJLRH01SJztIqOFAN5zLJbOtX64SCsxyQd
XgdwcqF8HaTF0TFaOwJ5Tfa9VoT0IAHqMdE/ZTz011ZC3s44q8FitEgA/f5a
8mLuftok6Pcj8bHvokzToN8C7sEvnmRMgH4HHdctjFw/Cfr9kn3F9KZML+h3
rms9M+V33qDptwuLv/D7/CrQ76S4sw8iZStBv/Vf3HCn0jeDfuOo5+We3qWA
fpd2PZRTc6eAfs8Ri+sCH4+g+t1rxaOeFamg31zP2VpW1xJBv0UIW68v/KgF
PSZ/3exzL6IA9FjWQGK+KC8M9JeVnGzXYJIA+msx21oY7poI+tsacmB3/I0a
0NtO20tfTnUXgN66BP2MutuQDPqKG76xcYNHIvCd8CB1b8GBJOD3BrMj+VVf
CcBvW9f0Q6ONGcDvvRfjF5p824HPpkeb+Hs/VgKfWQ/M9tNtzgH+qha/WNf6
Ng/4ylrkoFdFjQS+6rEsUqgZ4cBXWe+z12J8aoGfqnYDwRTGXOBn+FbFM5SL
kcBHUnPW9v2x4cAHl7ijV2LN3wMfyDd3bLgeXw/4Z+jsJ0nIlQH+9dQuPHsY
lAF4D+lKTm98gwe8a8/f4lnc3gL4ltVaR76vXA341kzduC7NrADwzFXgoiV1
NA/wK9bJccOwKhPw6yuaxy7sVQF4rbv48riLZxngTTZhMdn5NFo/4n9WGy//
SET1gtJXT28Ge6J6tW6Raf2PMMCD+9Z7EeobuuDzi22RVxEL7QW8tXYeXNJ7
VArvn2NlNL7hnwbvt1DhnrmzvQvwVFB0zihrsQzw4C52a4YtlgB44EqRJGHR
SN9ZH3fnsHyMQ+NHZlu9tb0Pxs8Cd7OtT6ACxqfTx5ar1IyM6qPGa3DG7q8g
H+ju7VsQ3zMK+hHb/w2n7TgMeSdRW/uRntkYqlfuC5uxC46D78t+h8Wjo78O
+EXtsbwbLlsHeUfdwKmFGtgPfBOhart423Shz/ORdNwmggDjw1qjfD3kZxrk
HT7+FrsmnVIYL+mHst+ZV4jAP98d0Q5PuQrh+0wE9HY+WTMCfPT7Uipqhh+D
vKPh8D4vbmYY8o5sE9cAd+EQ5J3SCke+HUeHIO90m1xxmv40CHmnyAtHFTCd
gbyjwvfKnMWCAnlnyF2Ok6A8CnlHYSqt/Cn3EOSd1j6XQuHxQcg7GcmNYuLv
KZB33mz9kF71e/1NyzuuW86VvjeYhLyD+zrxkuqeB3nHN/7grYGiIsg7K0y8
6gxPeyHvpK092W+H64G8o+BMYtx/sxTyju8vMuOdd1GQd0i9LL2MDNmQd1zY
74i4fciAvEM+0HTkZUcc5J2UCs50bmYy5B1HpQafB5dGQP9cGD/5R40EQN55
rZ1mufdhF+ghd/za/G+TA4D/hVeqLCf1mwD/ti13HwztQfuZmvxRsiK5eOCD
3oe1Inr+gaCPRNVDNzdE4iHvWGz7dHqgZAD0cvBjW+ARdgrknRPDc5Lrr7eB
fkZ8w+TUdcignwE7M5rE82pBP0OYL3ufd6qDvOMrsjlM+EYi6CmJIETCMmNA
T/cXJJmdZs2FvHPpTHIC9n4Q9LWz98cZs3ujkHdcH1p6UysokHfo3Qm2P/ib
IO8c3GeReGHdEOSdR6cjBZ3nWiHvyHocJaby9UDeiU0gX6u1I0PeiWxi2lW9
dwTyzuPW0B2FRtOg7+LzAQw8HYOg77FlTvQZGp2Qd4g1TOpRQt2g9xN9GwJM
DfuQ3nsWfDjj2A95ZznagGl8lgr6b3P3Gr3W3UnQL64sqfWftGtR3hklkkYT
y0HP7LW6R5g1UH1q04XjdfdJJNCrEww8vjvZh8AfJtjGTz67RYW8QzDhtB/4
Pe80PZR9Tz46/44AfqFJEMplC8iFvKPe5+hmdHAQ/EP8JJHRvZYCeYfw1YVJ
yzwZ8k64Nf7+o4+FkHf6f6nYGH5H61UeCUGH3BcjqF6t53qpZk085J1NH3qe
b/pGBj9aWXZnGg2gQN6Z8lafXqUOgT8d66sxcMimQN6J/8grrEXqAr3Ouu4U
d1y6DfT6bLDIobqFVtBrPonKBLZtKA85Fmh9znHsAH1uHX9Ut2moDPQ5/vxW
4W0NxaDPmyrWaF3SbQV9Fjcfe6P/vAP0mdoh+/WYaAXos6qA+b7rOk2gx3U/
VVUsfr+m6fHrG9X2ImqToMcZz8v1m0TqQY933vQ2GXbpAf2VDolmHVNoAP19
oyHRz5jSDvpbI3ezXW+ADPobEvE68OTbOtBfq4VnfFcL2kB/554HEAl2baC3
OcIW03l7mkBvlRxi6Ca4R0Bv+ae7z90fpoC+Jg46jCvGU0BfTS7m5m0L6AJ9
bf/St3ttI6q38Sof3bPnwzjo65WHjhJBvGOgr/6Ni1JJw+Ogp6xL/LcqzND+
8PO38Xm9zp2gn7329x7S56D8wMA9815saxnoJ/ebxF25F3tAP7PCWAklD0ig
nwzbBV+d5iwB/XRputFDr1kBeolPWcci97AS9NHQZV/hL1Ir6CPrioGIVlc7
6GOs+qCah+4w6KPpbOntnwKdoI8Ki6wrExzNoI8NdJ8v7yzqBj2s7A5mvi7X
BnrEyl8yi5dsAz0qLNFQT+Iigx5l1LOe3EFE6y+um3vE6+fyQY/i203aCGWo
H0NVZoTxGjEP9Icvssl34QAJ9Cek62hgjFYHylNHd7LKfW1E/QXUb7UhnE1o
fTXC0trzsw30Zufb4RT233ii6Y0XP31gzm4K6E2U0b2Xa9YNo36MOq/xfczD
oC81s5w2pvl9oC8hJ2Jx7QLdoCeJd0PKDAc6QU/2k855E0VKQD9Czrxvkn1B
AL1gzbcYLmsvAP4bv+wrrPmNUxr/NyxtZd8sWg15rfNAwEEWd1SfKv24ZlBC
tAP0QLV76Tqv9EfQA8HDqfMX2ivRfhddg+C+hyXAf/XWR90TUiTIZyQG8R0O
zJ9ADwhcunXWhRmAbzH7wfWxWqWQF9yP9WvT3a4FvAf1mQ741rUC3h9+OhO9
fQfKCwbaKw8DeSsA36sU99r1XmWA76RlVtdNT3ohH1zwfFI2XF4FeF8+Ru1Z
p0yCfBDwOMvbxrsO8F90lr0i7U4X4D/+/G5SU3kz4J+rcu6K6KVWwLvS6f2j
334UAd5FHL9y3JquhTwgG2mgKO9eC/hnl7J8m/C8CvJAe0awVP9vPtDygOaV
MJmF3zym5QHbOndj+WYi+L/4Xp23NQUE8P8Ng9c15s80gf/Hs2QH5WxNB/8X
kz17yD2rFPi2jYdke/83v2h8e1O2pVnaB/FL4Ubu2a3LJOAX6Xnt2Wb2UfB7
R265kQXxLuCb3nVmwzMvOoBvIXGC0zoLNcAvPPf6cq5JxK/9Y3Z1JAbUv0N+
Ir3n2olM4FuIS/R324No/Ydn7FzrnVkG/DK3Xw1sYhsCPy/oMjtqqlwCfHM2
sjnm9rQJ+JNE3FyyJ6wB/Djnu4CDoWAp8OlZi/mOvfhK8OOi/KKt1t1twC/u
H0kfdRmawI/3P60euKBUAvyZoyYfEZAoBP7s12W36TxUgPajveVc57MGgQ9k
80lvb6VYtN6+gh1poH6E+ajZ4mxmtXMQxpe1nY1Ti74UxvfLninG9sRhGC/W
lrNbMQLaT90lEMk9EUmBvMA+YMculVOD1nMj8u1jGSTQh+NObm+Giwbg+3CZ
qBGGJvrg+1TSqR2Ij+2FPMCbJsA+KtEEekA6LsZYLDcIenC+RbViy/kh8PuD
v6bL2CY6we9zd6odl+4cBr8f47dg9pCngN9b5WikWYz1gr8f0R83a+zpAH//
Sslf2WA4AP6+q4pn+I0HBfRlb0qCoJZoD+gJvd+kZVc90hPlmjMMHGz94Jdz
AqEf3RhGQU/4p/31Olj6QE/UQngCvk6Mgj6sEurKiD9GQB8MejdtbOxBfuhh
M+xjyjEI+sBqXhJsmzIO+iD/bte9wBASzH/TiOdahe9j4Hc/n/tr9giOAx/1
LAZ28bNOAB/zvEbO8/7mI83PtlkuyHW9Qv1IXJ+vqecH1gDfVjoPW3vXToD/
cNmqPTh/egL8J+jG3V1OP3pQve7Pfirkyd3Lb2uzPgFefDV+HF7dlwJ+QtCV
Oi2f8wHwQ5C87emoFAP4Ie/5Vd2tGwt8CK9t7GOdyET9SvQFntafI1G9jZiw
vpj1I/iJbOQhob7qBOBP+Dm3vb2fYmC+jXfe1svyzwc/mWtaIclSM2H+jZvu
/5JlzUb1FyujEP4TxeAn+GNaIpaS2f/TbzHqb9scA/NP/a71WiIoFfwkJPnz
3p7fek/zE9IvXYbysBzwE99Q7mfWhh8BL6SIWHJyYTbgBU+NY99Nj/qJ3MMO
2H+UyQO82PI8E47ZjUf9kP2DYqdlY8BPfNMPcpUnoX5asQO3ItLpUsBPxAy4
D5qIxqB+2pmK3TN7YpCfuGW22HTg0XqSn2Ab5vMR/MTXeYuqJk8M+Mlc2fTk
pV9R4Cdz27f071FD+sVHTnt5Kjkb9IvIO9jC7ZEO+CVaHpt2vJUD+FVd0znB
zYYHP6HOa3f3tKcivVvMeO15Lhn0Ll7psEi3dh7g23eTuX1qTTLgmy9I7+dR
lXTwk/isIAMBGTzoI/5k3k+PvGjwE1uhw9nLwdmof3b5h/Mjcib4iWRf0vjk
YgboKU4lQ5N+QwZa33k9KhOPigY/IZBUZYSeZIGf+Fr76ivUJKF+SGmtG0SO
JPAT1S+fqs9IhIOfWBwScNoaGI/6S/fqrM0jNaP6dkRpmMaPd8A/3pcnVKTO
NcLv+wbbrlXmyEb9SekC05xuZaDXhIyQPVWhKcA3l/OKQ3osrmj91hVJ2aVd
CnwijV7f4rKrHvjiu7hVS+FeNPBF27r9bW1ECein6vVBxRvsmcCf8A2681J7
QhF/1l2qWDtVBfifc0toWyNeD/jHfbmgnaH/CvSzHX/rw770fuDDzsdPJaoV
WoAPxj9tnF6povryBuOee+X8paCHqrHby3c1VQBe3LUj98XWZ6F+a3OuVN5P
JMjzpUy8x7sEO1C9WWTdK85H1YAP2Va+L79MU0A/yd9+WUpcjAD9jF5zIOWO
UivKG1zLu1PriOC/f/XDBr2RWpHxR/2gxZ6ksrO+SF8fNJ/MfxkO84nTe6DK
vVYU5o/wy9pH40Y0rK8dl9av/Vo/C34r11G7e7fdLPgt7d+nrZ9pr2l+auSm
+F7j6wysh8N5Oh2pN/Go/6Qz7kL2mBusd3FMYcyeCT6wvpUM3ZpqFpcD+Am5
TGehzpsGeJF1U/yBn/BH/bTLt7K1bF1g/vUyZIxOz7+D+c6Rq2cvvJmF+gtH
9RxTc2JhPE84ODmHXZ+G8dzWVBLVGzsA46ls0vgl4MQQjGfO48OOh9J6YDwT
n3+10e5B/cANt9aJrYiRkf/4HAlUrxqA8a3LuZdSmkuF8S22XNCdDEb9Yfhz
L+ZbzqL68MOXxcPUOxQY392X2Q46949BXnH5Jm9dcWUKjXfaywDMPwXGm4sQ
9oGuOg/GO14tLL14Dg/j7auumtq9kA/1BAucpGHDvTQY/0WN81/4t6D9BWNx
ovQDg/+ppxKrpIbmU9F+k9m4np76R8THescI/y35qF9wH/MznpZU4B/BeTu1
4w2qt9n2CL2XdstDetrypXFXSgHq39jcQhbwyoX5cyIWMComoP2GU/sW5AJ2
jqO8ceLW0vEG1B/Nd2XTfePf+KDlDb3Q5oPJU68hb/jvYl/uqaOgfo5oHvuk
uiiYb9KJlQ62y+mgh/hAozYWgRiYf9WbOsoCJSkw/zhXTwEOlWjIH4RXS79i
udxRfWuI/tfYYQrgg8YnGj5UbnKJMtiNAj4cWR2djouNw36DX2hcAtML1F9m
nODfqezXC/n3yHdO7S7fEcDTXbfDGzyLqZCHJXPKm83uUwFfzQqRlorYBODr
skrqza9Hx2G/4dAHRWvfjjGof4nSnT+2m4j4/vOnhmxjwyTgb0mfUuJSNA77
DW53jp3NYaBCPewiwXkrQZEK9bCio9ZaPN+ogNeLPmeb7sZNQj3sohbzVo8M
VA+7tDavwSlvAvVXmLMdlm2jwn4DL29ALQc3FepjtPGF/dY7oXzXGeIg75FO
sx87LJ0Fee9ISTfTs8sU8C/ZFWOu20SkR3xvku5+cM0F/zKus9AkFaYDP/CN
4hK4ZsSPuS9bd7E9yIL8R04+lVB9NAXyX+UC69bt51F/BX6TfPVpR9RfcaF5
yjGnjQL+5yLJsirqjfjGykfYRwhLBf/TMyuVm3mYhPrJk+QyHq34Av9c+iaI
FnRekAf1ihdzrfLCIQ9q3M1plBGiQB6s+fL9Q5TVCORB1TNxOrKliZAHmYWl
2BUCs2C/gaRxwfOzXjTkQ18Tdy8vjTzIhy5tl3yyavCQD3ERl5kXVF9BPmw1
V+xv8BmDfPjVLn0vM9cQ5MPIssROdSe03hGU7xXubh6BvCiSYGjFeXwU8qLX
2ExVgSAF8qJGxGXjkQ4K6nf/T79rvAOnzNT1ArTfsEvPZ5kuE/KA5mpNm7lj
JuQBkv6FuiosBfKjL7e9qb5MPORH2wdLTJrOFMgLmjJT+e4fc0D/9PBaBH+2
HNC/zhQPg1PHciBPuki8pn9vhvKk+Y5ajSSWSZQnjBYo5Y14yBNciVyMtjZ4
2G+YW65+uEYgEuqDFWz5y/nUcdBXQmrW53XEEMijLtc2mZ7XTIM8Sjohahp0
DfVXWJjK3XlHH4f64766Ny9qjkAe9eVtkfH4MILyx3/Wg81hHl/IA62gv50Z
RNLC9mzQX703jCGVrSnw/oUsThenXd1oP2HxUftJnSnQX8eL2rpDU7Wgt412
bBdO7ZlA51UGan6oaUcDv9n3WWnUR5Wg/nlK9hqumQbgd87tA+x6v/2Kxm+h
3ongkE0zwG9Zw/JH6SE5qL+Uq1N23+cZ4PP+tQLyofsaAL85TNZ1ye/xgF8l
65EndzKaAb8fvrcxNr2dBPxS8rs4TazKAa8h+k5Jeq2TgNdw57Dt5NkUwKtr
rG2d+4EOwOv39wMjzY8nAa8Kq2N3zIzKAJ96CZ/X7dOcAXwaH9YdVj6bBfh8
P3jqPtEPnc9Ytlz6cpecAXi8umP/qW/9M2h9UytAWuPZBnhUaHvkMRM4Cfij
zT8Nf972JhIeNjOAt+v7pngyImcBb6akUlNHiVrAk3SHuGXrzBj4fyvdan5O
GzofdeBS+dH9RhTAk2VhyJJZ6hTqzygS19cfQf7dLLAuuuDMCOCHjUju7v0y
BXihvZ/mzzlSVRm2P/HgtyGiGMPHNV3gtwdzJYPHugbBXxkiTnHqYGg/yXjl
2cH7ziPgn7T30/yQN4x4z01+CPww6ZK9Jv/XQfA/vE/5bknWOvA/C5NDKlcu
joG/0d5PwxvP8BN2huPTgK/WDo+vc46DqL/3z3zQ8MJ68Hpwr8AY4MWb7R15
7N0Y4IP292jz+9/5pP192vzRfg7zFdBnIBbRiPph1YQvKOpXoX6YBNumxDtE
yGtiAfmONa8LYD4lVw5PHvhRgPLZPWGpQ09fgz7k2T48wyrXDPOrx9btfiqW
APNb92bdya2nWiCfSfLambVuK4D5DuG//uKIaCrMt553ts2TjkTIY2KlMZE8
1BzIY5L3nqt03i8FPGh/Tf/a+YAEeNivHn/8qjo6n+5eOn7YXzID8BHp0rQj
nr4P8KEZ3b1zNrgC8lfdd8GTztZEwEvGZvdY86RSyFuENow9pR/1dxDYfh4R
EsoFPC2erUhWy6wCPDHHqTpLixEhX7FKuR9/KV8C+MLd/66y/XQPOm/3tpJt
VaUG8pWt+VvbKOsSwNscfQPTVYVMyFNXzCOPpXSVg76qXt8g0vq+FvQVbyso
4xpZA/rKYH5auvII6tcwrM/7Sc/Yg+pnQk5z83NxkJ+8Kvd4HO+pBn01lt+V
FShSBvnIoutEmPKLT5CPMlRe6LRxlUA+WiSnNOcdbIR8ZCCeo0sSJUE++qA/
4ayY1wb5SPaAQgSznQfkIbJrl8ggUwzwy3F/dM6xTSWg57JKMsRgkw6UR4bv
VtWvawK+TUmmyBle7kLn7fq1SmWD4kDPXVryndovJ4KeFzGn9uiLtKD8YbaJ
1T+TAPy0EhNS1DjdCvnDttc4UWOlGPga7ppbcS03HfRc7N3N+Qce3aDnvWet
KamUWsgblJo1eyToW0HPpxqa110rrga+X7Ur2PuOcwjyRcOH3q7B9yTg/wb1
yVL73zmQlidKYwv7Glc6QQ8mfmzuO/6bn7S8QH6wsWR6dzxar1luGh3Dh/3P
+d5XrEnWjMBf/JUTe9715AGeCCo76h9e+4DytsYpUsSFCBif5dIEn3PzuaAn
i+ruNvQLFaAn7DcYJQkqTfDvsTJu/BJ2Lxn0Y/8Un8rXglnQC6+aYfWiu/WA
t0Btpgv8Pui83IWpOa57vzoBXzdc04tzx9D5ab5qgVQFw0KUB2QXXt66VwB4
oeklDR9swc+YHcaoMP8GPwVPpbjPwHyb5hFMLVl6YD7ajD+GrK2fhfHUYgrV
cSzqgO9PDNm1eD4EnUfEcfj9zPa1h/G1ctqxnXUPOn8ePUoS9CxtAH5LDm33
M/6Ixt/LmIPuhw/qP5Xdx15gvqUa+Loh90H41N4SND5pPPiCs3XAN5OfF7NC
Nraj9YhmTln9WkuE77fm3m9bB+D7ik1kcOu8rwN8qb714h9xRf0sXHz9VEp2
EaqHhTtXGXv4wffHvfHZpuSsDet/sZM1lxcIs4AHnOrymZhFCTQ+8vxLi2fv
w/jITvVvpUqj89C4tP4ajnZN1M/ra2j+3EsD/IK0rKZU6ZoPfrEY8Ujy+J1S
WL/3GYr0y9jOgn9Q6apGBIaLwD96u8TURBQI4A8WFQevffPMBX/oHLf381Yq
BX+Ilyo5Qq+A6q+yZ6/ZNTf7/vN+kPAWVvsxUz+Uf09muW4Yc0XnnY8qxB70
skH3B4h2LnSufw36G64lJ35fLPCf93/g2GpiS29qofs/YhQqSibvonrQ94UQ
dnHU/4ZzUbwTXsuM7veYUyx8dEEK1p9Kne6Ze7/NwvrTRUT7hCJu9p/3d9Be
/+v+DlwGfWiJsQXKQ/pXdtqLxQD/cBOX2n8lXkPrw1LDVDHOq4BPPiE6o4zu
d4BPnNm69QJKZui+AdPw6Dk/S8Ar2f/orPq+WHT++IhuacKLeNBDnK/w44Gr
+wB/YtLbC7fWREBewl0Yfu/VrobwmYxPEVlrh/AZkK18lCcE/B6Xx9WzYeQe
+LlsVmB1l4A/fH5cJ/EwVdYO+KJW5RF6/wo6f0mVeFBu1zAI/Lh7K27zzRV0
f4W45Ye9eRtQf5fLWa+0VONW+Dz1YbNCs6EU4Evx4F4T2VEy4JOS+3NU6m0V
Op//n/sUOqsTEk9rD0M+OBswFFTkNAz4ND7U1JlAQfWVSqMX+zONhhH+/nO/
RVKqza4LZ7pAn2vmCaK5/u2oH3NdU00yUxTgUVJ562EGpUrAi5NswLnj+yZA
r4MNnyilZU/9lacBP//J18SCS457F9B+wk7ibFSxE9I3srP/rcJbzeC34Uaa
TAtnUH8PoU6KQeJSLeBpecGIZODXCvon6zVJte1LB7wQL1Zk8N/NRf5KbVfj
PREM8xk/Vt1ntr4U5i9R0UjhMuf/3G/xac3zxlhP0LccsdMW25dKIR+7c/Qb
EfHoPNjcxi9C0yMZoGfLUu24caY8yLvp4hIrF6jjoGfMpp+DvqflgH4R9x2k
ry7Mg3zL5X2RbHQzHfKsS6hpvrmuDeTVO6L8yz9DpwDfem5FlKxnmajet1ZS
nJHVEZ0nbfUbJ6rlAZ6Gvmk5Zj1BeMIpPTka3X0f9bOVvtz7tiIf5pu/cKuH
M2UG9Y8pmvi4CRQifZD9ZOMfxA/zp9VNcOLwRf2dRqa6QW26aH3LLKhu59lY
BPPl1HAyvF6UDPOlJCJ3sY2+EeaLNMero202AvzT5LW6X2uG+i1dNzfmrO3t
gvl0020tkulH93koVbieP/KmHtVDpLyvDIiNwXi/tPI+6n5tFMabZY/9u2OK
06An0xwuM2/Yh2H94M7DW16VSYL5sPp19tJ88TDMR1Ezx62+w2h9Kqtx9R1W
MYvWB6PKLTnHm9D9VAPDpG0maH3A/PyUcOLxUXR+zV9A/XzlBMyXIKfXwpar
ZTBf9v4G44PzLcBXOs5PsqcaUL2QLO7sb62P1sMvonBFb5lmYT7Zz19XIQU1
ojx+7kHXrPNjyON7Jd3Ts+TJwOdnXZmHE3qowGeqi1CH/3gL6P+2lVKWggeo
3sf+icFMyKvzf87Ddn8enkP9ffGSORliv/FBw0/lfKOg+J5pwA9NT2B9LZYt
Z5mL8mt4DkV4uQLt9/Fd99pbvqnlr/tqaN9nm7stt2VVJ/KDPz+H/bL/rN/F
YxXMvm9D9ZYNrOnMavyTgFc2vmObHLgGwT+EVNhNhPeRAb9dmmzP8ZUIv17n
EmZYAknwed+ZXltv6NgAn1fyY8uzWXHUD9Tq0NRNn4juQ6J9Hhqe9Tusb7rv
Hv7nfgqF8SjO5lQN5LEreT2OIaok0KuMZW+GnZzdkL+W6YkTTI1kWL8vjYk3
Pu+dAf26su1OBrdo/1/3M9D07EIW67NCSifwa0P9alyvMxXW6+VmWXr58uj8
Pe39NL4pnZd5fPvVEPCNJTzxLl8r4tfymbdp3TbDsD6nvZ+2/0F7TePfO4dN
dx5GoPMWkl7D9RKmacDHnMdSmDIbCfiop+NHZ7QV8fFrvaXT0//hH3HWWn7H
WDb4b1/Ca0oj+wzUQ2njTeMnmaXy5/b2YvDnDwcu/0jo6Qd/jubbWJ14pALW
61S15HqMOA7+7LI4ue60GrpvhPb9aPsXGn/mk5Yfn9Xu2Dp/qBn0IKUrzOtt
MOpXZGnBlW+/ivz7QONHcWPeXvDv0BvqLuOvUb9i2h98QP3VX9lXzr8B9Sty
lFrfl+oHPoWwb1UwsigBf/dsCz+VVD0F9Vcavmh6cZDZbx9hdyvwT8hwSno4
mQrr83nGOzfPW1Gh/krDI00/Ur0ctl7XnYB8kKHDeO5K4hTUVzX+4JWmHyJb
Nsf46JL+um8L8uif17T6q/IfPNP47s5aU2DUVIj2xy1yWo2fFqPzADMSO87c
L0b9BjfCQvouVwGfO7seDFIjiwGPfLE82GP2MMDf3E6ucb6vaD9NLxHr+Jz8
FvBGvh3nu/NOHOBH9dJh/qQ3n9D6ooT50zb+ONT/pFh2+vrl9zA/eltOTc4x
psL8GCs84Z93xaP+tV1nfcy3JvzzfrCcWBmR+x2Uv/Y3/nU/GPD7D5/0tnur
NLzzRfdXFAe1YwQHwBPt9/+pz5vn3l7K0YPP0zyXxmfdhc7jqS5XbLt3PAn0
OnxvVtU5nUL4PrKtMoMxn17D/Gnu3r5tX0o96LWLRbLAkTWJaL3hN22n1Y3u
B319YMeZBPMZyBvZ2JXrgs5D8P19JST1+ML/5/6wm4bbJdjCUD932Q2nxwn+
oNcWhTK9btQc0GtySPjO5rR40OuAIspcjHMt6HX4j9Hhz9/TQK8tHihcNiKg
+1USHNoTxZbRfQKuMyaaWzR7UD2+Zlhd/XwO6Dfr663xE+tRHnURcXL/YZEI
+k3eVSVNSUgH/S74zDRQwUME/ZbtrX91jT8F3Rdwe2nHgFgx6DczQ0JyZecU
uk9FSsCnWKwe9BzP66t4XSUJ9NxFjK9EIqYK9Btfu8l0Xxge+LL6EXf0qk8d
6Dc+o+a0+90IwBt56ckPq4RwwFs1Sacw4vUs5KmvimLWoicHUL/VI8Wf865B
6Hzcl9C9nnszQL9dJiR2bjb2Av1+18QdONuMzvuHj/kpUPIbQL9tdb+8yNLu
gfVWjvne708U+tB54jLXpszmKuAn19XPCgXcqL89XOGG91BzLei3xX12u+m3
0aDffgfaA4pOzUKe0yqR5jhM7ELrsc+rJxl5otD5erkXB5PsilBel3RvttIL
Br6l73Xrz7CYgXynfXzNbd+4QbTe93l1IfrYJ9CLOadsJ4GVSNBvWdnPNZbr
QyDvtXhhi/Z+6Pz8GmvPaaffek3T8wn2bxoRq+i+k6Uf/jWuqzOQ/45wzD+2
Z+2F9Z9PwuQOw4wRyIPuO9XdrJz7QK+U7Daem8rIRfWFKZlJiahg0POQF8/G
PPlS0XnaumHXnYLPUD9ZtLyi13sK6MOFspvfNtyrAX1gLeSfG32Mh/pZSBk7
Uccb1QeWfUNvpqUPIr0wDXxwv84X9EI7gdkl3nEY9KLa1HunwOo06IV5Assu
6jwJ9KKbHO/x8VwL5L0277ei8a6o/91ffpdzc+8I8NNxaq4hrLEK+OnRcNV0
rHQS+k9WW2JuBc6i+wjLmfSF4ldaga9+4tETTBHjwFdZXXHcs/87Pn/4egW7
LfOhF93Xa+AuYLs+pRz4Kvk1+cITrQHIX+zPXII+rCD+tpjaqBYUo/rHjOGW
ZrWRdqjPqbbnpd4JJQGfSTdE5FmfdwCfA6g3ZL6EtgCfxRKaWu7RVwGfMxzi
3R6Q+tH9vZmbZvtEAoDPracnnm+5UQ35LFH7jR+TURPwu5RJDtdjQIZ63h4Z
gyU75inge9nkqimX7xTwnc/fYtoRFwJ8N+dVU5BJnwS+60fkXH90dhr4Lnbi
vOZurA/4vjPJ+XLeLhLkN7onl9mkuKaA/1Z+j+4I+k6j+30bm6fdeCNR/8kz
BbJrzyj0n3T+kPOec8iB/hN19VDv8bZxqA9OlXcEv5YhQn1QcvJkDsPDMdR/
clKZffiMIdQLrYwt8nxOtIL+hKzp6k5xGwX9sR3p0x9ZQPcnmVZwto5VofrA
jE752uWuJtAfgbxD+ivcU5AnyflfjnydCQI9erd7t250WDPo0elrbfa3ClH9
v72UU9Y3ahbd/2v9rTLjcic677qtUfGmRyvkS8k87QbGglHQp4EKhdFcxXHQ
pwCZ1hzvY2TQJxH59YQi81LQpyHLEzU3tg2i+5kUj22MiC8EvWpldgwLONUH
evVuRuFO3u88T9MrY6YLZdebu2H/P03IpObYt3HQryCuD/qbyZOgXy8VT3Cc
FmyBvKq9zTdOha0a9MyxdUxMVKcf8mrsaNvAtXNU0LfuFv0tvZnjkFcPxl4S
rI9qgTzk9UnO/3sqWq9m+RR1hs4NgL4F3KUfc/apBH0TUbgh5tuD9C3pNIl8
QIwI+nZTnodzc+QM6JukbCnDq73ofAu1Vkb8pD3St7ny2vqyueL/uS+dHNUv
ifpVOOMnWjUDqaBvWUv+5VhtF+Shoms1217gpiAPLWVnnuZxHv/nfenhbF5F
LtKTkI8g39PuH1j3AT/nMwn5iPZzWj5yPBywvOsz6jet9NyVu9sE9QP+d737
uWPAic57CvTNkRBdccenAp3P257Hnn1yCPSt7miF0onTRNC3yMVuRon6YdC3
A0fZH/V4d4G+GeS5nxvuGQd96z8uIR9NJYG+Lbpd7n1FJIG+XXvuumR6dBL0
LUTgU1B0dTHomznJ7wt35ADom1gkdYNQUTzom1hdSEFR7yjqr9P0d02WIIG+
tVoYz52ypoK+EajaOIGlFNA30rbi5xtux4K+mRoJeoQVjoG+UUUm60Rcc0Df
rNaU6Sb7Df7z/vKgpKq3h3TH/nl/OZ6Pb3VfbT/oW3ymQfby90Gkb//ZDzmf
XGA1GTIM+mbQonupJ28c1cu8BHtVWCpB3zDh1Z/Ct1B/nYtP3G/0ofMYet7X
Px+aywd923Ghhac9ZBTV09bXHr/8q+Cv9Q1N3/673mnCXziiYjMB+nYIxyNQ
+Bt/NH2j/T5N33JPD/BgN8mgb3rh+sXO0v2gb1lli++jLDtA3y5c6/32IawJ
9G2uxtNvtxcV9E3Fpl21AGsFfRMrkGu7tG4S9M03Na9qky71n/1N7f2vfTOb
x0DfbJmiJvoTskDfPtSlWJ/oHgJ9uyI2yMt8pQb0LSbrYMn70FHQN4ttT/b2
bi4Ffft5RZH9SCjqh8I93LrOLU4P7RexWluIhe0DPavOXlr7+OX/7HcafV51
OPEc9ExwlGVM8Sa6nxZHfZpM5D6B9nd4BClcKeNov/PP+6HexjTF8crDCPSI
yJVTwvcS7W/idNa76JU+Bj26wsISnLlQgc4TbMadHvl8D/RoJ9fjQ9xu6H4T
lz/vhzz37JZS1++/D+svy8JLZipekOc0R/f4yvCg+0twBDInvT4T5LlhxwTh
lRB0fp72fhofL+fv/yLugfYbH9h2Hn0aMwt8LE8V3rXOEz1PoGnNgzNHJtHz
Amjvp/FrWZPVsPtxA/CLMOIaJvLiFfCr9mnEG707E8CPnIAG3iNPSoAfZ655
EPVVqIB32t+j4b3DXU153AetJ2T//H0aHml/nzbfkQ/uWIaKjsJ83/bnYLy4
bhr+fZHqA9+dqSWALzxpcNiROxn8s3OReaNJPh7800Lhpef0jnzAVwBHwyWP
DgI6z+rB96NrOBf8UC9SadKoIwD80LaLs6mutQjVB6STvbLfF4P/6X06OBSa
GITOo2jGbnjL4A34cqkqt7XUCEB+RzTdM7/iCX4mKy0uOvzQH92nekxbeL+C
H+ALN8+tXbf4Ct0fflRMrGreB+0fFW8vUjNF9SnZnUZvO8I8UH1qcLRw1ySq
T+Gc9zn8FAsB/yEIWTG33g1D+5OcLK7V7wzR/rjYyOlT+/nAT/SE1QzqcxNQ
vVMMmx24dgntj0skKTAMGKP97Cnd2ZxAtJ8d/nXwTVJEKtqPtHimQI2QQevf
ZQOz0gkpdH/BZcMzTzfGo/3sGT2KyJw24M3lZc9X9ncPQM9InnuLjBk+gX5Z
3FM9U7z4CdUPV+nUVxKV/6qfgf4oebueaTBE60VpI/a37PKov+LP74PePFoj
s/Wb0T/3i2mv//u8A9r4017DeM3P39GhM/lrvxbGx8Wh07rupwyMx3/8Bve4
zPP5HdO/6qU0vpgErnm8S3Uc9Fg+7csvxxh0HlryHd1GdfFq4J+o5Rzuvhw6
D2JI9pzoJDYBni+FrXWhvEb7Ea46r8+NdqL16/57fSdy+VB/XxKdQ+jh6m7g
M9nF9HNvJqrPHXlrJlvk2oKeD3AId4zL5CWMv/ieUh0hHnSfTo6WUtjXhIZ/
9nNrJqfgnrxLBT3gynx5xKgoHT1fKCJ3jfqeYHi//dNPG9Lz0X6zkjJT0goR
3Qfja3T0G+luNPCR+nZtTOgWPMy38cOZUBHGdMiLj2q+cJVmdwMf4xfHzoi2
5QIe8BePHnX0SAG+7T+UQdTQz4F8JzmzW3jzFDovyPr8kKIqKzqvNFdwU3nz
AjpPSh6+rpglMwT8Mfhwzs3oB7qPzkU0VCFkfRLkD8HJpI2ZeS3ofvvaW/eq
lcnAp/BADiYW5nLw64B9Omf37u9E49fnvBxY5Qh+zHXucYrdILqPH3eqUsI8
Mwnwl11vQCzZT4X5KcfvP8dzANVzGI1mr+TmUoGPqkLHHkb3RiE+PqVfYXF7
C/+etLmL8CH+CnT+85Tj3MGiMlTf/U6cF9+K7pM9rEbYU2+F9uf4ak8lnZJA
/QLn9ikXb6se++t8IU3PR3m+yEx/HQH839P04+U0QvXcdzEBwY63p0Df3ZUD
DUJkRkHf411Xn4k++/d6RdYtEfeLZxTwxTOUf2vjKSrqj7I8OaXXVwR4o7pl
7G/Qr4D1iMYBvl93ploAb3ORTw0+no4AvPG56XRMH0Lnvc3J27i6zUZR/xSb
HRW7lQx+YKIhHGtVNw74VOCwFtj4YAzWGwzSQUtpeRPofHfCsSbx3ROAz3eS
pic4ssb/ej4LzS8sHL68qnGlonrqUcvdL9/jIX+QhLOv+o0QwT86ia4E6lQW
qp8+COaQpaRBvme4+7n2ucMIen6RvYnei+9vAI+OtVIfzpCJwA8vv/fSaZNo
P0yJXn4/2zk85PnMEN2ZVTPUbz5XdzGMEpAF+fv5IcakVLE2yN+2jnydgf61
kL+n3h6Iyz04AXlHNfCg8cGxeuRXVL6QjyUJkL/znJ/9cj0+Av4VXiNvIGAT
C/lbzM7606GqEdB3sVNcXL4VSZC/uVYfmXL5oOc/TJFaX7K2VwG/KN/eRTYt
ovvwzb8xiD//NQ78WfdlN99J9ingT+jta9NHlmcBj19jVsTEtswC/jROtCXU
0E8D3saXdBzrzGYBb+lvJh0ObUHPA6DNPw0vB7Yv7iO96vyf/VMucrZiiQz4
/6jSRu3f+P+v39HGjytNZLEwCu3/6Wua2Q13oP1+Men5zZyCqF5yxNRz7rR8
O+j92qx6m6uxk6Ano8G8NRc2jsF4LCVYHNyyD93P3zLulrauB603mKu8nhue
roXxUfLSPXPtbgHwlUlNM13rIqofRJ9z4j9YNgZ8ZX/6xctXqA71jyldSqI0
I39wYTt5PHEN6ifRz9Uk/MhD/WQLqdvZKFV94Be8vVseBxcMAj/7Tz6ic+ZH
9/k8u7u5+jhdBYx3zqfBzUH9WcDHjItuags7BmA90D7w6MQlyxHgY6zFyCVr
y1Hg4y7rHaUc90eAjw61Oh51//f5GH/4J32pZU3aDnR/74HRvuXySvT8jF0R
LVfPKIyC/+zteOksc3MI1gtv3i/hb/3+92l8sx29Rjk2VgZ8Wxh/fMRLth34
lSUxFLmUje6r61RVED3IXgB8YuH3YvjwDvGHZdfSx/nzo4AffMczJi3JbJQX
Hpp0vnFNA/9bfCalJfoK9Ws3JK2LtawZR897EHooPqZQgvwJn3Kh0wP1H+qZ
vhF5O4Du/+QbyXc7JJcE/jTXK/xV0iQF8BRO75XLaZ8M9ap3LHZ0FdZlgK/2
q8xcVS8pgC8LURu6NznlgK+DDxrEZTha0X7uafyV0N/rIbhPKq0nuUutFPyA
yuT2aWsAuu+j9UPx+ZYr6DyDfELytdz3qP5kETcr/NSuDPDGXVmBrTvaAnjb
4JFD4F4oReerl+3qXiWi+yRzfullZTalwfr2g9f7k+tU+2E9i/Oy9H0xlovO
b8qo3VIeSof6EvPn7blcHVVQX6I6RUaM2dRDfSnc4wXnq9AUwHOmlbr9mBnC
s6fA/Y0Xr5EBzzFeTy1mm4cAz95saZHT58bBX9iZ7CuUN44AnnOqjvldkKgE
PNO3b/COeoDyVN3A+3piSinUcwjnr/Pzy34EPEtfPumbPd0CeM4gsKv0LrSD
f/Sal/oQhND9v2m7o51yb7WCXzjODketWqD7nfY3zdmOlWRBXhfey/fu/pNB
yDcuepPm70YDId9Y3F96UEZMgnxDPDF1u16rAPL8lHDlWhPzSsgzYgvOr+0b
EtB5/xsROz5zZkB+UUrmI/RmFaD77WOFn+9SH4T9r1bKJNcTjTaoj2y/3W5y
VnQa1gdHpa681xRC56m1n69u3pY2iPqJ6MSItYPo+ZMxb+gPelih5w+R5mP5
A4+mAD9k5TUd73lkIf3dx2+52a4S+KBKDtHZfxjlI4s0M9+Kx+j8M2n7j+QU
gQLA/7KNV0lHJ9pP5rJ1/1Ih3YjuS3szUxakkAl4913yHeKuSgR9XQwMdw+k
IwEeo3U/mjY4V6P9YYo+z0IDuv9PzPfZaUGZGtBT36SpycwHyej+sA6vrdUq
dYA3L6WcdNsnTaCfrNkKWtceFwF+iAd8Rc7g0PlZlzbzEyTPUtDD+NbcjZyK
1YCXN471IvFB6Pk/yqIslJol1C/btG9k4y2+KcDD1y+4ssoU9Lw/vjLhcp7T
zage4SSw591jdP+Q1hn6NVGXUX+RxgNXX5JXD3yfGoyloGhsFD5/gMqTx2qC
pH/209Fe0/BNPnF69poOug95Z5FBZPnjccC7z49HUxtVhyDPK0Ul9+ed6/zr
PpF/7UfIc49NtJNa4fvvvapzOP/zCOR74ocolhcZVOAHdUFT7tnv9S7ch/zn
79H4oaEg7Wl9bBDqibSf0/gi8ljE7ZkpOo/J3ZLlcNZiBNUT//w+nJ/785rG
J6gX/OGTaybj+ZSCdtgfzmouju/RnEbPf/h620iiYgD41b3CPEDUov7z/IZY
vQjuFOvEP/uLaK9p/kR7Df3O/6mXlOf/iPqpPAX+9HrzJr0zE1TgZ55WS4ez
+QT4lYqtX8EmNbQ/HH6ZffdAiy/kz8MMn7iXbpGBv6ubDx6u/ome/+DNnXa3
dA/q72NgyB7K/UxFz39YCuk1c0DPf0jU74r+2oSenxP++gOV8/kH8DNSq9Fy
wKspqNfmZItbVt2mIn/7833/tX9ipeK35rXOKPhbf3lnqkj4NPibKylaQy9m
EOq71/RHyzQdpmA91fpl9n37dXQfctLy/MOf98bB/1TWH1yfmz8G+iOrK72c
+nt9StMfY6bC4c5jOeB/rkuOS7zy/3M/Aacif6rL6//f+yefKPoDnymDkOe5
4nh4E1jIsN7KI4Xsr1NG9WSJfL1tuDy0fwL1sP/0A9P0okl+sEb/yxT47eK1
YFVhyxrQQ4ZRlYXt6uN/nRem+S+DVF7Nrrfj4L/jFE7dpAq0fpvojv1oVYTy
pUFe0Nxw6CT4sVhCQiTXAyroK51EzoPNV8bBnxPlmRm54sdAbzvHIjZQvDNh
/WZyWE7+1DYK6FWlxB6rJd5J0BPrEvxPbcfRv/bP/qWHFoMjb1kXUX8w7ec0
/TGMY7pt/6QP9IH35I7oLg0C8FFksmJZ43oz6Ft5NJmDNQjpm1K940b5xqm/
+jVpeqrqrTEQbNeK6uUMjwjTzCGgzyScq8j27R9Bj0lTq6Vj5dHweQkFx9hv
nnwN/z7fBWvNyoE3aP+lVtSOMPYR1ce37Aq/xuYJesRX9TDzzYZ4pC91HS81
VZ+geojlrYRJiVDUD2wh6xJb+gn0Y06PS6qYMxz0gHyycPFMBTofJskxX5OX
jp4vyLr8jC68OAb4JHbJ69C+lHTgU/iBstNWmgWoPvG4bnRfzRN0/1qgl5jc
9APAD8F7/ofr3hzAy6IU1qZsSID5Fknn+7U3AD0PYD+ryMkTYug8uIjKnauN
VrN/7bfTxpfpmbTquSF036S2baHv2YOz/6xP/Rc/Fk5ztk9PDYB/HYj1sojf
heq/j66uZbUxHwN87d/Z0CHXRQL/cbdnfJS0Ugf+40IsbtFPQ8/LvfGw9+jt
8+j+6GlfUyNngdm//IU2v8/5He/nl3TC/GrvHs09dXPmr+cL/7f+TvOHp20l
2wzikP7TnYm1EfvtJ7BeZhzpGs5H6xdhsnWLs8U4zH9Y0ELw9Sx0XwGbZN0R
+YVZ0Ls3J6lXmbSGQO82CaxstppD97/3H3h789U7lHe+HXp4iI5CBX2hfV4a
PhLKiw3Hv84C/wqvFkd7kP5HX34yRR/VRfefsLRqv0r72YTyUkSqxs3jzkgf
ogrHBzm90H1mdydq0sgvAG8Tr2v8Uw4ivPFccP+10/9/9lP/P/JSZwpO9lfQ
DOApj22baG4Uuq9p5uCXD6I16H7yybzeg5/fovsmpn5EddO7ovMGTKbXmV7Y
UQAvVvYOsy3K9X/tx/wrb8i2NNx8wPHyLzzA8wLYGT9kvK766zwdjb91wV4T
bsUt/7x/IvqThINJd89f90/Q+HWt9gTT+JURGM8k+qcPTc+j+9W6mdJD124f
gc/rVeo1y6RZAr+flfhcqfgU2p9pWObegbVPwM+v9C1JUyTKYH5sq62H1/T0
wPzgZwKlV+XQeV5ZXd2U7KIqmB+raVbNZL3ev/IqbX6k1IOeG66d+Gfe/JpO
OUNhm4T5UZVfOyjG0QDzM2HaMRnehu6r5X44Jy8a04H2S7YpOpp/RPcrZHnp
XHKPHIL5MQlZoODiUD2KuNQnWHQMnX8z2eGR94m1B+ZndIdEhGZ2D8xPf3KT
26dKVG819w2PjJrvgvEcIp24ivs19heead/XIt1zbyv3EPy+gNkjL53uCRjv
c/MJUinW47CeeEfp8aqMnf3Lj/91Xied+arOQPkgjPfcmpp4Z+1UyPs7rA1z
X0zPwniLJGSHBn7sBH2VHX2ZUdBdjvoJ9J7WKg2i54HlndkozbkHnTebK/YP
Uq7tBr9izhp7rB5RDePpTj9FOrG2HPJXCIHsxYlH9Tva56flLQv+xParGeh5
x63370yIFaL7F9ItelWK8Oj5ECsVJng2qTbwLzdC422d41Mwnq19LdsdCWg8
d14849RtRUL755QMmyC58b/8iubnLIeCZet+rx9o+f/K4lRo4SjaryDcSmvU
PVAMen426tLW3MfTMF5hMwv71LZPo/rQqUSxQ7mo3tmpOcQgfqEYxuN6CZap
3oeePwb8//N92Sr7n3/ePQX+7PrNhy7hWj/qhzNhdtnfPfRPvJCEpX8UToyB
nvAXf+vjUiHD979rc5uBg2cM8nl3H+GOjfTQX+c3aP7Uumenge7LQfCnw4+P
1C9/mAR/0r3pSmkXHYb5HxrKu++tNgnftzxc9xJjeAnk71hrU7q7jeg8oeyG
82KXNqf9dR/zv/ytbIFjeP3/+Nuw6ueL65LQ85LFlmNsOvTiwN/CKyhHdpWg
+yyjD91QvBiKnn/UOeH7JLGxA8bXmLlelLNtEsb3TfBCu419L4yfBWfb2uMa
/aBXM3cvCKabdcN6lmmVXG3YO4Xuh9kfc6jyTCvoFTdjcTE+twPw4/t/Crvy
cKjXL44iIql0KUIlKQolCWkSRVGyRakk25UtoiI1UZQt2VquIiStligJ2bKM
XYMhMmSZMbZsIcvv/tGccx/z9Pz+/D4z8533Pe9ZP+9Zvi7tHe/G+q7mt6vY
MrrIwD/ClxQ3WVELgL6Rq2tHPRR7gX6/dD1K1yf2AX0s/AYW7H3QDPqH0CW0
a5cwBZ4fh4tGlzLqgR6kE5Trd2h0kC/7mLuHlmY2QLxhY+HpyR1EBnpF353s
0NAkAX/Ong1IVw+lgz4ck+awsH3ai/NJHFf5PaNifuapMQ0FKRWcDzXLdiWm
8MYXoK+BwuDd1GYy2JewEd65xVx94E/KiVkXlhv3AB6icn2yWVwZ9aHRxZxl
l8JbwN+cvaP+yYuvH/RzVnrZvSQl1I8DrhoK9vF9oB9fR02fXC1MB//TQfJp
N08mzoNSdyHr5RrTwP9MDDM4p51Gx37cA0VSlq5daM/6l5oODrWCf1rq6cp1
2vDDH/0PxYHAbTP/9LLkhzD91f3neGUbM7uAn1IlKj8VqfQD3mG39Ijbzf4P
oN/4VZaoHRhoBX82+0xhkAQ/3teuVTmqf/RlB/i3cll3Nq/92QH6r4GvIKXu
UBP4t6bclukZxA+gD1NqRO0MazoA37AIlEv2aaUAvlHIV6PTMvcd8IwwS4e5
nfUdgGforzRKvLSnA/CMS6S3L3LWNGM8O+58J+aWNeAZA/flnkW4dQKeUXT1
2hBbczvY/928ZqcjDTH/k3t2+SpdQwboZ2kdaqovnYb3w1s2WNt9oYC8mahl
NGqNNQNeMaxHaJ47jv3pwhrZ+zeNUkE/duQbp9t/6wX9SI64E+Vr0In5bwTF
zJAZ7EemUkULdN5KBXxB8dDM5hByJ+ALkrGLfGXtvoM/Emiu57UoDufFq74x
urlNpRv0Y51Kw/RzbczP3J/Co+5d24/55xuePL010Aj6MTLttphTfy/ox8e0
ekLwKvQXh39QTiWNtYF+CNXcWtRRiPNz0x/EVQeoYX8YAr0s3U4f/X3CyODi
z5a+oE/NZWQeag6Vgz7w20Y72ZCH+CiRba4wmlYO+uCxyI1NWnvaQR9QJ70F
BA+lgz64wUg+K+pYDfrAVUwxPTe5BvRBSDa/zlIDOuZb9gS94LJvB/9IRTTt
2UAnA+Q/a6xoNSkV409pzQfvrX1yQP43vnZieD3D/qwhXb2D43OYjyFtU1sb
LFsO8r9qcwZ9Tw4D5N8lql7z/ucWsA8mmw/wkdOwn8P9nypLfL7kgrxfMuV5
ZmZMAnnXzN/kcPcE4psNFjmHt7pj/9Uty/cscXYZAHkXJBOmE6OwPrli8ODn
+3uwfwglfb0gSSsf49flhJbZJWk4z02MQuWjdYF8K4Ydc0gbq8f6lt/6aD5e
yZRnvdzg+lSpAZDn1UH6c7EfGX/M72Y+M+2hFcemlFP+JOx34PlAKEi7EeRX
yb/3rFRJDcivwLY+U6kcnO9tSvi2lNKYCvZSsaE8oSGhFfyRO25sLRs24zyV
pPJvYift0B9z6X9h68dbDPKmubHFUfJkMcgbJVzXzjsZ8byaf67cro3DedxZ
n2xlj+ug/5prOKSZ8qIV5K2UL8AgWg3jO7YhpVypl7tAnojEt+6Wv7zAnmoP
GU9wbfmA/l56vsYOvfMYHyhnXSRTLyP+XvT+tb6mF9iXlLLz6iIFOO+BGENU
VMh2QfsyOMoeRLgM+lne2ffKfssCOE8Lt97PDIHI//QrIqa0i3apw/y4Rs6U
H3nYz5XcH7p57boC7NfqoS6jIROBeOQFkYbpn0dx/6ULqoZs9mJ+VZaNTlLO
UawXORZ60jnFEvGEWb5fm9edRXq8W/Q5sMsZ6cHnulrnr8OIV01uGG2Ws0f/
34CW7bvOBuPXYoOU4tfWoE/Yks5MqrqfBX1CFAnYJ7PbFfsfvLI5F5J8HudJ
mtfNdPxrweA+so6z/KWkGeJXfVITSes8QH8QNze4yn91Q3xyKCxosaYGnp9M
QrWxrQPiFZUaUwP5johXVs8G3Qm0wPPTT4uUsjoC+oI4pVujMOaK9bCXCzY2
tbiAviCWN2VRX3iAviB2es0+1LiI/ZffNBSvSzXG/Jsa9kjVtbKYr6Xo57zl
9hXM75XweE1m90T9QHTcdIA8rg79rowSby0hXUf+4T3rcXjKA/WBwDaPPXMb
UR8QxecW2PGC/Od13Nrwj6IP5r/Kl2rrml8E+Wcb8mU88Zf6T3+blMeB6jwY
T3hpH+IzssJ+wTuPfjXTvYn1p56Pigo0b4D8EoXCRL48u4Lzc3dHXTTpvAzy
y0YIkOrOlAD5JFckVS/l7GLB2+fHZ/PjTyb/PDzoJ757RQfwB23SYId2dyms
b1ozvFsyG/XFIav3RpfbGX/E97liucYrQrvQXu/1yd5+Cfv1e62pPdAq1P5H
PG6/1ekbEru7WPAHprwEJfk9PHWlH+RlKHRzbM5BvK+PJBSXH5yj/hH/iet7
Ltz6rR/kpftnuVIJA+tNuUeVnvS6Yf/ybPevxy9oUkGfNUZ9sb5O6MH60eGr
343UU0AeChxv7B3h6AH7JxZACl23vxn83e6TttdJCYjn5iWeMX//NhL4/XSU
8F5dcg/cL/WMXRWX7hrAfI7Qlpdb1PA+2ivg+GHxfXh/ZLGmixLKoIM+3L6z
+OEKf8Q7hlbavPBuosN5xbFxjzMuYTwafUxRdYNzFda31SpY5vN2A//Iy9Il
z/Jivo8LT8WjNA7MFxvqE93vQniH+WFZXQt36aE/XHP88FDO028gLxxR9hcm
ihqB3/KDXKKvnMR4OeJ2klm5QT7w0/1DD9nD/ioBfnLp+qDmfrgJ+EnRM3Zd
e3I1rJ/Ia2M0GlOD/tKwqn99cznOgy6uSigpL0B7xbUk9u1UJuyHNrlIpdfv
I5xnscoDaZVTDXCehOUr2OMbcuA8+eOWPrJWxftBCTnlzNoD7+H8Khxtc340
ID6rqREit5FCBnkyrbuhuNu8HO+jtmiQeuVIcD5997iHDkpXwn7Tj1QdWOpS
AfKi/aQ77ZZLM5yXRsLnwXXvu0Fekqi+p1s5sV+Y9DWtsGs6tSAvuc6x8h99
sF9OnCQ13P8/84iHO+liKhu+gf6+IfRLS21tI9BD0UAjgmu4DfhZPSvA/Myp
etDXr8ujHddMYD964bE7g8YJOP9uNLnUzudzI/BHUcx0+uy5RuBno4edAioL
qiE+SVOXX8tR3Qv68upenvzhStRPtNO7XG62DwA/1a5YX1tX1Qn0rVv55pCg
Xecf76PqCpWFf/SiPnotdvCg/77O/3sfxeQ3CuWRnBh/GsTfu3Knz89O0/A+
g5xc5JYfjfmV4c2k4W+JYE/7lF9brprpAHl6425XIfSqB+LpmreRh+lXMN9Z
oumaYIhxFPZzKarPd7seAfaTpPHFbltjJ5yHdsXbJYYpeD90vnlGsUqHjv0b
jKK5/96B9YRGtaN55z42Yn3H7/3CfWHuqbZkAz+wd8byET8eLfoO8u1vk35q
64EesHe6jTZpq4nfsf+CwlURF49utHdMfH+evWH6R7d4BsJsFhSBvxP0UYzA
VVAM9p0QbEfpzA0BPGaiQamop6eSJf9kPv7IlJc1h0MSJZQw/pJoMFnHm4D1
qfPt0/zfw/p/y9txasvsi9JBln5UzPfzl3k2S08zsD/pen6/2r8jWO6P/l/9
DlM+o/6xvGeSS2fpBzV//Uz5+1R54pSqSB/LvIf59TvM/ZD+pVn7liZY/6pV
QjYPHg/C74/mq4hvSeyG8wq9J7gzwacH+2/+ft/8fCHmeRbZnrKr293DMp+E
ie88kAveIZ/EgHhQlhBbcEKrD86fLCDTVWD5Bfw7B0kRt22TX1nyQ5j8bWYc
Nu5zvpuFv5nxWlZw4nhgeTcLfs7k1/zn+osb7tGAH+zPUdk8t2O8L1Dz3aqW
iPnp5NIwj107KEBPgXPb6Qx2CtCD//TRJ1IKmF8o6a/e/2hlBcSrQeFOP+Iu
Il7rQmp0KAp/i/2prc9Hc+qRWfhzPv+Df79a/he/qC/wb4FvncNACAPxDKGe
tU4/IoB/nXxsJxLO1sB57ZoM9XVYjvJCnZorErd+Cvy48MZq4xARzF9KeHWg
rKqy5Y/1GC32Llved/YAf74KVBaeqC4H/5ui+I6bPwbnoefFOOUKPLoO+oVH
2G7ryH2sD67ovKN1a5oE55X68vnJZaM4f8c1f2XV94FaxF8Dlc7y6hcBP1m8
aRLe213AIt/z5Zm5P1pka6TjdD1L/zom/TU3XvNeQe9nuc9lnleHk6/Uy9QG
+D9uZ5eRIrE6eF/NwO0XLk/jgV8yF1gvLnxaAu9vc1burc5Ge37/Se9UcRAZ
9ZnJxhfD5Ci0V2acrzZZfAR9k1C+y+3lgzLwl/bt/fwov4eK/SX9B6ufN3zG
/O02fdvDFvmgj/ijZPRtnL/A+ZsubzItvk4Cf8pq8dizCo1GsF+KDlXNy+aw
35F+bp7XhzNvgB+SnqioB43UAv+rJEQqjdysA/p9Hzua2OVFBX7J3OB8eGFF
Dfaji+6+rPIzAvyx0MeGMUNR7eBPc7SoHaeebAb58RE1jzNJqwP71uLCx6tV
gvOhr0zU9xlqdgJ/DemVlG+vqQd/Un7k2E16PMYLAgQSxdU0D/w/Lk1y1TgJ
66OsrAX1+lRbgH4WVa8tZf+NN5j/52q0nOeGFQXltWqDhmmHLZyfw0W5H4tN
8X3KO46SBPnewfnIJqo7ijJIQG+7Z+FHykaa8L7RiWJirRAP+w1ViFh7714t
Sz4kc3+Kwxv2PXmK901sb+KPBrYbwP5CgqW3Ed7j57p6Cnqq+3B91BhN8Uz3
BPx9n5r+aUlvWK+foUSl4BWs/2O7zS/wlrcV9itQlKAxtJMBvz+285vSXcUe
FvvI3K+0hsedIfce2K9mTrMMZ3o7y/0f833ZnyJkLzmVIn4q26Iko4b9HaVp
lLukXrwfy/3puy5DtAP3E/zRXVvKAZ7TpSTzc26SYP0ph0b2zbTFgbwt97cS
XWDRA/4ih4towLQ9Df5f4NqupNgQEtbnOH8W5ViE/SUtPCZ1lnxKAnnrNhRb
eH8Hzs9tVa1vzVyP980tXDfXHNHJB/pMeNpGsb/LAfoIzBALO3WzsB74N32Y
8tcxzaBM9rZg/Q1nPrd+Os7PfVi0LMhkI9brH/8yE7R1Pc7P3XyXn1PXEvtX
SJq8i9NdTUd6SnxxEmGQQT6Ps7NPtU6gPFK5JwXuCyYC/Q7lH9nicXOA5X7r
T/k0ChP92s9D6aAfXom0ikXk1GL9znizLs8DlF+2vPhz60PE4PyK2vaLLOPp
A/yMwl+mX3AtFfGB/DijxbdxPuc/u/ZLsgv1I14mGLSm0tET8DFDVXdiRH0X
nMeHDz/7b57FfIChFRxparzPwF4+iKXt3nwN+zfF7mj02779HuBdWwkpJ1ex
0RHv2ivAf2t9AtBPaf2gF/UR9r8kynua6B2KAPuZbhIQlCeE/qg2eTt5mWU6
xi+66buuPnqL/fBslMZTS7KxPnjH2+MmUVh/kOQbrBlzBvtHUkQ0CrQOYrxN
LAugZm9zxfztezY9Xy+/hPMUDZASCLNqgvMkb1EYK9TMh/Nc2JhcJ6KI8aNw
2IpLgVMZcJ7pVTzFPxMq/+Pv2N/NLDLB56lNRxbVO+H+ZlaaK0bEYH6Woa+V
/drr2E/sQvCFNFHMD2Lbt7PH75Ut6L/9D0rjf4U0Af2IdzkZ6Uk4vzWF+2di
WWw80E/eXFc4Y+0LjOemrg0c84nG+Q82ncray+5jvOWt/T1m0Bv5vc3t2nJC
AK5nrqZzrOEC5oPRV3yzHSGifZjpSI+/9xHWx+/zyYzHDOsl9nsfbl48i/O6
5UnvvJdIo71POdKwnHsBzpe1Tr78Q6FwANbv2HZipfsFBqzfyObv22X91SDf
wb+kubodsH/ruR8KN0IbcN5aruicedLnetyP+KjAr6Tz2F/XSvx9NR3rZ9jU
GvwWW+qjvaXkxDcZYv/U2EN53XVa75DfOisttdpwfkNKxrMNyqEZ2B+V4KUx
pZP3n/kLpmc8OSfVmeu7VRMjppeJ72fqFyb/irJna9qGlMH5uHbuYwvqRnoG
lW+bPHe0FeudOcXfqPb0svTnZ+IrE59OLKkgMWB9Dt8zxkQN6SzxHFMe5L9k
XR2YxXlWw2W76w0cm0A+cpskw4rscD7eqeJfN538ySAvpplFKX7/8i/T/zD3
6T+sdBf1YbN+vuUHX+R/bpusuqJhzNemndbxM+ZAemtev3+5X4MO+71Q9K50
oQLeH0+E5wrK2ncB/y3umKpReYp4iew0+y+5v8rhef+lV8ukU7Gf39XG2vgd
b7G+cGjNOS6/tFjkD1mlkWNpe+HZyH06xPh24X/k/ah3RjXOZwoeFft2fbQX
5zGfmD5NEUd/g+24cXKhTBLs546UiOWVrwywj+omUn+V3MT5RucHOvniPNDe
0ASP6DytSwN5ONLuWCw+g/2V0oXL2E3rsL9bez3/mYCPvej/GGpzrDRDfnJZ
/5d8rMAb4OfgwDNl/g4oj/Pjk8xxCe9wnu9/9H+Ir+OLS95ewvm1BLqReEYf
fD+FfzhMXmAQvl88OU0gbaUA/Z598h/z5BkA+vU4vVN6twjnA7K9jjj5kJwM
9DK2DkoUUsR8JK4TxSumxPqAPrrZfJuWf+wCe6uw/qEB5wD6S8SpyahNlzBf
mLkfyF9JFL1jeIrG4g8w8YTAlas7bguhPb0y+mnaSJUG9jNvOfH5+xO+gCck
RLmY8qb1sOBHTDxhbCnXxoB/z3s+nsC0t8MnwvvY7Wks+bjM+LQuY9sR2TM0
0Acf+lZcrGztB3l3+HH9pdKVfuAnvpNtotFmBTjPI/tvuVQljLezYoMlvhLI
4D8sOblHrlKGAe9T3m96dvUJxP+oBmPFd80xP1zXWujXwOMvLPth+gvqNsIS
El+w32BGwfiWbF5WPI+5n/vvPYSUM3F9papCiqOLsmA95Stddv68QwN/cuZh
CMlkCu/b2fydZn7uvQv/V5d/aL+uMeYT3XUXaCuRwXwitlLerd2ap7HfgYyO
kYk9FfRrRWR8UuMshWVeD/Pz7R9pelxKaM/yqp2SZl4/gPtrwqrzuqaLa1jm
6zDx652V970fnEN/ju3XGWEZL8Rra/pc7Sl/PQP6WCp7z9oL1oJ9JQrRHNIX
XsffX93Azf33BaAX83OmPG0+Ykbq8aoH+rVsbR2TPVYO9JP9/TnT/sbyak31
7QsHejKfAU91swv9ZhYHz5Mi6Rb5ZjTYf3LfzLiaERU+T3rOfzD2RCrIi36n
+YElbtjvMkRqRdsnQQrL/AYmv7zKE9IkKGF/Pr7jGXtnF/TD/9k7O5ik7MP6
o5pSWQ5drSSWfnNMfHB6uDzQhtIG37fLbJjZcSYV8L3mErGtJX/h5xYDooWa
DMQP5J/TI5sasoG+0Xvz9INc8uHz1QdNDGy76kB/q9WnaQcvambBU+fPM2N+
7hr86qtnKPYPmNhCYLdb2Qv/N//7hMMJ0Y+vfoT/G1b3c2+vQH3QV8nLGdSI
/QlDmhOsRkYHcD3OVh59xRdY6A/9EsTWH0lsaYBnu5wSZYPtGVgvnN5pfvHR
d5b1zX+e3z9qfn427CfsqdBakyj4fUvh9xSls+2A92nrsen+w4H7I35YVJrt
/xTOLzpX/eN2KcRn/YIYM0PURuCnoE2CZRdXov0lRGmtcFPAecTCejlxRddQ
XzGfme9nrnd+/d/8Z/C33+iF315oAvIvkOUqu1n5M+ifzpkbkyMTpX+eX/L7
+X/alP2U
        "]],
       FontFamily->"Europa-Light",
       FontSize->18,
       FontColor->GrayLevel[0]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
       AbsoluteThickness[1.6], Opacity[0.1], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18,
        FontColor->GrayLevel[0]]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Large], 
       AbsoluteThickness[1.6], Opacity[0.1], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18,
        FontColor->GrayLevel[0]]}, {}}}, {{}, {}}}, {{}, {
     {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], Opacity[0.8], 
      StyleBox[GeometricTransformationBox[InsetBox[
         FormBox[
          StyleBox[
           GraphicsBox[CircleBox[{0, 0}, Offset[3]]],
           StripOnInput->False,
           GraphicsBoxOptions->{DefaultBaseStyle->Directive[
             AbsoluteThickness[1.6], FontColor -> GrayLevel[0], PointSize -> 
             Large, FontFamily -> "Europa-Light", FontSize -> 18, 
             Opacity[0.8], 
             GrayLevel[0]]}],
          TraditionalForm], {0., 0.}], CompressedData["
1:eJwNkmk81AkAhgcjQql0aHONa1lJKSHlXSVUlkyRZCRlk6uLDTl+q8MZSkU6
pE2D6GCLVoxhZsyMY8RExmD+M1lHF6uybLHz4fn0/t73y/NSgo5Tg5VIJNIB
OQpyFOW4l8RT3gtbYesfqp0UPICbBZhaXdmMj//FTtk+EyIgjxbuEPASd0po
mUtiunCvt0QjcEEt1iUM264w6sQr9iT5WyAfy0dUSkKWSzBx4a3LssQGvOuz
FxzU7gJHN/I/DdOHGOm6++3AdRZmZzfmqqXWo5jUGnY+SYy04tniI7atuBJp
PGS4ewCzu8vIIckMBO1bnSx1eI2iZZVMw60NcHDPsdRdIURP6paUDZPyPJJY
O3CpEypxdBqhWY995qyv4k8E0ne41dZENyM8XsPjAVmMsYmTvi++tkAxWy1b
XdoHx1R+Ma+wCSJPwbut1CEsK9TIfZrTBPdQtemH9t0oVEv/zbWiHT5aqWqO
9wfB9H31o8nidnzXomp5usvAS4n6IlBqhx33aSX/AYEbzaWdIYkcBC02WioT
DcB7foZV+TEOBNvKE8tDJTCn5JwOdOLApszkQzRbjFdaXWLy2kY40gzchD0D
iCocm74z0Yzywzz+izd9SHynbrMhvxHHPg7qZe0gMO9udKxPQT1uHKEkzLj0
oV3viILpUx60h7iKziwxJLQ09rFMPvyH6ZbZbv24GTF+6QcZD7tWX7y4hC5F
4e+0FEo4E4rVCton1w+CKIuQCtYzYRe/Qf1cSi+izqkdH/ZtglsP40m9Xj8q
1GxKLU/W4FoRJ/hG4SuMV/+cHRvPxqzmNOd0Xj9MfS32kfVf4urZjvt2bW9A
0bd3JVkxkR7j6/GF0Q3u83/zS+vZcLQKXxjG7YN+WtuGWyQONjvSBR88JFDw
MyvXiitEVt+Q4/PJJjA9UzK3B1Qjd0rU3EPIfY96WV6+zUSl5ra4EsN+HPqJ
ZliqzcPhZbYy60UEZg+1uCaP1UEnN21SdFAEo3dL9ugl1yOJfk5ryrsHyOM1
/RXPgcKzLM36C71w2hQDxrFmFLgEqtukDmKrT3fQvLs10D/qlGN6tBMRi45H
JP79AvR7NZy3dziY7Sdn2F1tQkpd7vkwG7kvj8z8/nI2zLPCOJemCezlp4YO
TLZgW23h0U96MgwylIVtFAHqQ5xSulRlSCKUEzyOt0LFn3qhmkuAEbSwdxws
TJfuNed5iVFLn9hjSmbDbZFko6kDAerlA++tv3Hl/9XMPxct79+OMe953AgP
xxrrC4+7kTYtnR9MYyPH/zVPYibB8xNz/PfeLVAd0ZlWb5ABv85onO2sQ0Kx
8lRGkQhz+5ReUsNrwLVgXY8jizBsEapqF/Yn2K1+43kFfIyar4+fL2RAxy/L
YGZGDJbxquIza1thtSMsfLXfIPghc5TItkZEKn0Y6CBEQOrDa7dqGhGrlVsW
+OUNiDVboldB/s/rBlFJlmIEn71vSBV3gGaRv975hRTSnbbr9vo14+ThEUZl
Qx+cxnWqVm5qRK+H8kLz7/1Q3Tlm0fapFh2Veqm1ayQ4bGxgOlHNxmnSHyaR
1EEkGG4/U2XQCn+z/gPmoX2YM3XNk1QLcMs93forhtDpM/mP7mg1MnhcTxOS
EGbXTOhsYSPMuhlTlbQBMMsrmheceobslaMcI1IvTrzJyYAGD5+VfZaaCCRw
MrYWVRzlQn+5skqVCQEioZFyTb0FK598KdKVSFHnP0SyHmOBP+0c8+2UFA+1
vcSqcyzs3f89gm4ngexRTtqVhnY8b6AeqvaSgnl7xYKqDhbcaJmLxWuHIPjl
kfdbjSZU7WpNJDYTOOSQVhtw/S4ekYucP5G7sLTMw+GmARuG9GyX17ckOLtO
UUXrcwssR1329yTL8DRKycpeXb4nNEzs3SJB7hGdWFYZF+2v589LCZPif3/6
z/Q=
        "]],
       FontFamily->"Europa-Light",
       FontSize->18]}, {
      {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], Opacity[0.8], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}, {
      {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], Opacity[0.8], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVxX081HcAB3APd+cxnJSu0Bg1qlVSU5nPt3iloQcPJS+PL9GkMpVNtTUR
PZDualaWUFESOeUueUheiLpRp2OInM6dx+NHnOfY9sf79TYN+sk9REVJSWnX
f/7fOaS3oaJvn71jSaRcwyPcnuawNELMsoFAayqC1eCCDRkptwtZjui0lgna
hT5wqW9+msbyxNEdbVHlwiPwCp54cZ0VDOu9+3dzhb/i49qLDkmsSBg0/VGc
LUzEnUV7LiSw4nDhpjWVKUxFjHrhysusZJRPKmveE+bigPdd7vBIFoir3rml
s2XQmo/xdTLhojnp9eiCS69g4TbUW5XIA4cjuMgPr0PU281IGSuG32fd3iuK
BhjymB3Kyi+xf3a/Wv3JJjyTONS9s6uEBrf23IBdKyrD0pZ5y6tht9Y7zG+s
HYoV3+s+PlaLnIvns4c2dkJlKldvmYUAeq5UjbGhBJvmA5955NchjPR1ebR0
oS7O5m2N1TucTx19XsiRYTlnYCpnSIgZgX5pbHgPBibEHU3r3uOgVUXJgdV9
yOovFehcFcHSP7YnTXcAOsbZlFTaiPxJzzrtfjmuHOYfumP+D1ZU8fNjs4Yw
TnKlodHN+FKwSLxh+zAirat5i6taEJhyU2ZpNgJxfnVig+kHjPRlxjYbfMZM
WGOq5Zk2SMKfz7BUR7Fqm9rcodJ21GsljwZ8GoXTPdMfnxh2QKY/HeP3fgxR
xgFmn3zFGF+/ku1fqMBq+T6t5l2dCI3zPTXGHsdC3WH16ulOqG8zmtwWPQHa
y1Tu17c/4e6izPHr/pM4YlPaquEiQagnLzF17xRyfwi6Uz4uAbumftbWfhqK
gaV63Te6ULA3X966bAZ8DyfVZEcp5hxZJ621ZxG9Mz6D1y3FDjeXU1flszD9
6NySGS+DnBPvHf36C7Z8F5fMsu5G5RbnhpVFc/A1eTelLOoGZ7apVvTnPBSC
JElETA+cDH55lOqgRFJo/pHu5r3Y/ix43R6eElnYwb+nUt0L+XEv83ozZUI/
G+O5+XgfuEHsrge3lIlSjj9Xot+PY2KroFhNFXLiFjdJv7IfDte08orPq5AX
qy6pM8MH8MZ3+GDptAphOp9YHasjhwvPtq38sCppXyMUnS6TQ0pqjE0kqqQg
HeZS/0Gc8S5aHu1OI37cTUzjuUG8TMxjP6qgkXPxd2PaHw3BaLRbsN6WTh73
GqfquFL4uTvuVUk2nVxKiw/s2E0hY8q5Li+HToLdBy3y3Si80WaK0nPpxKis
rGCXFwWTDWmdsVw6SWD71FwJolAbzZ9xLqKT0E1/jWiepsBida9vq6ETsziD
nWoPKLxwcUqfkdHJnO1vC5ofUujxX3B/sIdOWge73j/IpcA8IcoV99EJx6vQ
b8cTCiEpAcVVg3Qyb+V+Mr6Mgo4sqjFRQSftDex0VRGFwN8fahrRGeT5hYmD
oiYKCdfCmTpqDJK8NcAys4UCP8tmiZIGg7jc/5a3vYOCxt8VFlJtBik5Vf8m
po/CU8NWkmfAIDfWbGS7ySl8tMpwSl/MIMcltz1NKQoM+5DdnCUM8o3rUXHF
GAWf4BGfSCMGoSk3ZnEmKMRHFQUdMmGQTv7WsMBpCgUJZw8f+IpBysIy1677
QuFDmkOEsxmD3FyupZifp0B7ohFlZ84g/wJNnGO5
        "]]},
      Annotation[#, "Charting`Private`Tag$65975#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
   FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
    "Europa-Light", FontSize -> 18},
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox[
     "\"cosine distance between whole\\ntrajectory of same ASV\"", 
      TraditionalForm], None}, {
     FormBox[
     "\"Unifrac distance between final communities\"", TraditionalForm], 
     None}},
  FrameStyle->Directive[
    Thickness[Medium]],
  FrameTicks->{{{{0, 
       FormBox["0", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 2], 0.5], 
       FormBox["0.5`", TraditionalForm], {0, 0.02}}, {1, 
       FormBox["1", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[3, 2], 1.5], 
       FormBox["1.5`", TraditionalForm], {0, 0.02}}}, None}, {{{0, 
       FormBox["0", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 20], 0.05], 
       FormBox["0.05`", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 10], 0.1], 
       FormBox["0.1`", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[3, 20], 0.15], 
       FormBox["0.15`", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 5], 0.2], 
       FormBox["0.2`", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 4], 0.25], 
       FormBox["0.25`", TraditionalForm], {0, 0.02}}}, None}},
  FrameTicksStyle->GrayLevel[0],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  LabelStyle->{
    GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.28}, {0, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{3.785701293052641*^9, 3.7900106066531353`*^9},
 CellLabel->
  "Out[363]=",ExpressionUUID->"0926c027-60b9-4917-b21e-3e5c3e135e1d"],

Cell[BoxData["0.6226682727156377`"], "Output",
 CellChangeTimes->{3.785701293052641*^9, 3.79001060665814*^9},
 CellLabel->
  "Out[364]=",ExpressionUUID->"f33ddf73-e6ab-4ccc-970b-b9b2c7d6a70d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Model selection", "Subsection",
 CellChangeTimes->{{3.775472265253996*^9, 
  3.775472274500537*^9}},ExpressionUUID->"e81d88b6-ebb0-4344-af58-\
655b7047d90d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"only", " ", "for", " ", "main", " ", "experiment"}], ",", " ", 
    RowBox[{
     RowBox[{"repeats", " ", "are", " ", "samples", " ", "11"}], ";;", 
     "20"}]}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"BICIndividual", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"Length", "[", 
         RowBox[{"Flatten", "@", 
          RowBox[{"timeWhenGoingExtinct", "[", 
           RowBox[{"[", 
            RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "]"}], "]"}], "10"}], 
      "-", 
      RowBox[{"2", 
       RowBox[{"Total", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1.", 
           RowBox[{"Log", "@", 
            RowBox[{"Likelihood", "[", 
             RowBox[{
              RowBox[{"GeometricDistribution", "[", 
               RowBox[{"1", "/", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Mean", "@", "#"}], "-", "2"}], ")"}]}], "]"}], ",", 
              RowBox[{"#", "-", "2"}]}], "]"}]}]}], "&"}], "/@", 
         RowBox[{"timeWhenGoingExtinct", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BICAll", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"Length", "[", 
         RowBox[{"Flatten", "@", 
          RowBox[{"timeWhenGoingExtinct", "[", 
           RowBox[{"[", 
            RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "]"}], "]"}], "1"}], 
      "-", 
      RowBox[{"2", 
       RowBox[{"Total", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1.", 
           RowBox[{"Log", "@", 
            RowBox[{"Likelihood", "[", 
             RowBox[{
              RowBox[{"GeometricDistribution", "[", 
               RowBox[{"1", "/", 
                RowBox[{"(", 
                 RowBox[{"Mean", "@", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"Flatten", "@", 
                    RowBox[{"timeWhenGoingExtinct", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "-", "2"}], 
                   ")"}]}], ")"}]}], "]"}], ",", 
              RowBox[{"#", "-", "2"}]}], "]"}]}]}], "&"}], "/@", 
         RowBox[{"timeWhenGoingExtinct", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AICIndividual", "=", 
     RowBox[{
      RowBox[{"2", " ", "10"}], "-", 
      RowBox[{"2", 
       RowBox[{"Total", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1.", 
           RowBox[{"Log", "@", 
            RowBox[{"Likelihood", "[", 
             RowBox[{
              RowBox[{"GeometricDistribution", "[", 
               RowBox[{"1", "/", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Mean", "@", "#"}], "-", "2"}], ")"}]}], "]"}], ",", 
              RowBox[{"#", "-", "2"}]}], "]"}]}]}], "&"}], "/@", 
         RowBox[{"timeWhenGoingExtinct", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AICAll", "=", 
     RowBox[{
      RowBox[{"2", " ", "1"}], "-", 
      RowBox[{"2", 
       RowBox[{"Total", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1.", 
           RowBox[{"Log", "@", 
            RowBox[{"Likelihood", "[", 
             RowBox[{
              RowBox[{"GeometricDistribution", "[", 
               RowBox[{"1", "/", 
                RowBox[{"(", 
                 RowBox[{"Mean", "@", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"Flatten", "@", 
                    RowBox[{"timeWhenGoingExtinct", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "-", "2"}], 
                   ")"}]}], ")"}]}], "]"}], ",", 
              RowBox[{"#", "-", "2"}]}], "]"}]}]}], "&"}], "/@", 
         RowBox[{"timeWhenGoingExtinct", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "10"}], "]"}], "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"preferenceForSingleRateBIC", "=", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"BICAll", "-", "BICIndividual"}], ")"}]}], "/", "2"}], "]"}],
      "//", "N"}]}], "\[IndentingNewLine]", 
   RowBox[{"preferenceForSingleRateAIC", "=", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"AICAll", "-", "AICIndividual"}], ")"}]}], "/", "2"}], "]"}],
      "//", "N"}]}]}]}]], "Input",
 CellChangeTimes->{{3.775471375771448*^9, 3.7754713824681664`*^9}, {
   3.7754719013545427`*^9, 3.775471921958127*^9}, {3.7754721683263793`*^9, 
   3.7754722019422197`*^9}, 3.775472260872898*^9, {3.7754793215121965`*^9, 
   3.775479328815879*^9}, {3.7857013138743596`*^9, 3.785701337760255*^9}, {
   3.7857014057473044`*^9, 3.7857014169982567`*^9}},
 CellLabel->
  "In[597]:=",ExpressionUUID->"7bb3a08a-1c7d-4b7a-ab2f-e8405cb28368"],

Cell[BoxData["7.679038735965369`*^10"], "Output",
 CellChangeTimes->{
  3.775471879342988*^9, {3.775471912182201*^9, 3.7754719222783422`*^9}, 
   3.7754721536710243`*^9, {3.775472198465709*^9, 3.775472202789836*^9}, 
   3.775479329342268*^9, 3.7857013027294817`*^9, 3.7857013386769056`*^9, 
   3.790010612324164*^9, 3.7903620765344696`*^9, 3.790446254534999*^9, 
   3.7906277969967766`*^9},
 CellLabel->
  "Out[601]=",ExpressionUUID->"93d98baf-b68b-4514-8f4c-66f36d9c0fc7"],

Cell[BoxData["955.1051045224984`"], "Output",
 CellChangeTimes->{
  3.775471879342988*^9, {3.775471912182201*^9, 3.7754719222783422`*^9}, 
   3.7754721536710243`*^9, {3.775472198465709*^9, 3.775472202789836*^9}, 
   3.775479329342268*^9, 3.7857013027294817`*^9, 3.7857013386769056`*^9, 
   3.790010612324164*^9, 3.7903620765344696`*^9, 3.790446254534999*^9, 
   3.790627796999778*^9},
 CellLabel->
  "Out[602]=",ExpressionUUID->"6290c600-b6e2-4595-bf69-4cc72d18f953"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Correlation analysis", "Subsection",
 CellChangeTimes->{{3.7754724147242355`*^9, 
  3.775472416739659*^9}},ExpressionUUID->"15407e4d-61d6-4555-9778-\
75421477ab5a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ASVsinSeveralMicrocosms", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"GatherBy", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Transpose", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"ConstantArray", "[", 
                   RowBox[{"i", ",", 
                    RowBox[{"Length", "@", "#"}]}], "]"}], ",", "#"}], "}"}], 
                "]"}], "&"}], "@", 
              RowBox[{"totalExpDataCLRNoTime", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", "1"}], 
          "]"}], ",", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "@", "#"}], ">=", 
         RowBox[{"i", "+", "1"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FamiliesinSeveralMicrocosms", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"GatherBy", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Transpose", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"ConstantArray", "[", 
                   RowBox[{"i", ",", 
                    RowBox[{"Length", "@", "#"}]}], "]"}], ",", "#"}], "}"}], 
                "]"}], "&"}], "@", 
              RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", "1"}], 
          "]"}], ",", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "@", "#"}], ">=", 
         RowBox[{"i", "+", "1"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ASVsinJustOneMicrocosms", "=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"GatherBy", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ConstantArray", "[", 
                 RowBox[{"i", ",", 
                  RowBox[{"Length", "@", "#"}]}], "]"}], ",", "#"}], "}"}], 
              "]"}], "&"}], "@", 
            RowBox[{"totalExpDataCLRNoTime", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", "1"}], 
        "]"}], ",", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Length", "@", "#"}], "==", "1"}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"len", "=", 
   RowBox[{"Length", "@", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"DeleteCases", "[", 
         RowBox[{
          RowBox[{"Flatten", "@", 
           RowBox[{"Correlation", "@", 
            RowBox[{"Transpose", "@", 
             RowBox[{"ASVsinSeveralMicrocosms", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "#", ",", "All", ",", "2", ",", "2"}], "]"}],
               "]"}]}]}]}], ",", 
          RowBox[{"x_", "/;", 
           RowBox[{"x", "==", "1."}]}]}], "]"}], "&"}], "/@", 
       RowBox[{"Range", "@", 
        RowBox[{"Length", "@", 
         RowBox[{"ASVsinSeveralMicrocosms", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correlationsMultiple", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"SmoothKernelDistribution", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"DeleteCases", "[", 
           RowBox[{
            RowBox[{"Flatten", "@", 
             RowBox[{"Correlation", "@", 
              RowBox[{"Transpose", "@", 
               RowBox[{"ASVsinSeveralMicrocosms", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "#", ",", "All", ",", "2", ",", "2"}], 
                 "]"}], "]"}]}]}]}], ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"x", "==", "1."}]}]}], "]"}], "&"}], "/@", 
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", 
           RowBox[{"ASVsinSeveralMicrocosms", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}], ",", "0.1", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Bounded\>\"", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
        "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correlationsMultipleFamily", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"SmoothKernelDistribution", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"DeleteCases", "[", 
           RowBox[{
            RowBox[{"Flatten", "@", 
             RowBox[{"Correlation", "@", 
              RowBox[{"Transpose", "@", 
               RowBox[{"FamiliesinSeveralMicrocosms", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "#", ",", "All", ",", "2", ",", "2"}], 
                 "]"}], "]"}]}]}]}], ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"x", "==", "1."}]}]}], "]"}], "&"}], "/@", 
         RowBox[{"Range", "@", 
          RowBox[{"Length", "@", 
           RowBox[{"FamiliesinSeveralMicrocosms", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}], ",", "0.1", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Bounded\>\"", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
        "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correlationsUniques", "=", 
   RowBox[{"SmoothKernelDistribution", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Apply", "[", 
        RowBox[{"Correlation", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"RandomSample", "[", 
            RowBox[{"#", ",", "2"}], "]"}], "&"}], "@", 
          RowBox[{"ASVsinJustOneMicrocosms", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1", ",", "2", ",", "2"}], "]"}], "]"}]}]}], 
        "]"}], ",", 
       RowBox[{"{", "len", "}"}]}], "]"}], ",", "0.075", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Bounded\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correlationsAnyRandom", "=", 
   RowBox[{"SmoothKernelDistribution", "[", 
    RowBox[{
     RowBox[{"DeleteCases", "[", 
      RowBox[{
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Correlation", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"RandomChoice", "@", 
             RowBox[{"totalExpDataCLRNoTime", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"RandomChoice", "[", 
                 RowBox[{"Range", "@", "10"}], "]"}], ",", "All", ",", "2"}], 
               "]"}], "]"}]}], ")"}], ",", 
           RowBox[{"(", 
            RowBox[{"RandomChoice", "@", 
             RowBox[{"totalExpDataCLRNoTime", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"RandomChoice", "[", 
                 RowBox[{"Range", "@", "10"}], "]"}], ",", "All", ",", "2"}], 
               "]"}], "]"}]}], ")"}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", "len", "}"}]}], "]"}], ",", 
       RowBox[{"x_", "/;", 
        RowBox[{"x", "\[Equal]", "1."}]}]}], "]"}], ",", "0.1", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Bounded\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correlationsAnyRandomFamily", "=", 
   RowBox[{"SmoothKernelDistribution", "[", 
    RowBox[{
     RowBox[{"DeleteCases", "[", 
      RowBox[{
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Correlation", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"RandomChoice", "@", 
             RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"RandomChoice", "[", 
                 RowBox[{"Range", "@", "10"}], "]"}], ",", "All", ",", "2"}], 
               "]"}], "]"}]}], ")"}], ",", 
           RowBox[{"(", 
            RowBox[{"RandomChoice", "@", 
             RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"RandomChoice", "[", 
                 RowBox[{"Range", "@", "10"}], "]"}], ",", "All", ",", "2"}], 
               "]"}], "]"}]}], ")"}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", "len", "}"}]}], "]"}], ",", 
       RowBox[{"x_", "/;", 
        RowBox[{"x", "\[Equal]", "1."}]}]}], "]"}], ",", "0.1", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Bounded\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correlationsReplicatesAll", "=", 
   RowBox[{"SmoothKernelDistribution", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Correlation", "@@@", 
         RowBox[{
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"GatherBy", "[", 
              RowBox[{
               RowBox[{"Join", "[", 
                RowBox[{
                 RowBox[{"totalExpDataCLRNoTime", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", 
                 RowBox[{"totalExpDataCLRNoTime", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}], ",", 
               "First"}], "]"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "All", ",", 
            RowBox[{"1", ";;", 
             RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
     "0.1", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Bounded\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correlationsReplicatesFamily", "=", 
   RowBox[{"SmoothKernelDistribution", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Correlation", "@@@", 
         RowBox[{
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"GatherBy", "[", 
              RowBox[{
               RowBox[{"Join", "[", 
                RowBox[{
                 RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", 
                 RowBox[{"totalExpDataCLRFamilyNoTime", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}], ",", 
               "First"}], "]"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "All", ",", 
            RowBox[{"1", ";;", 
             RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
     "0.1", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Bounded\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"correlationsReplicatesNoPredation", "=", 
    RowBox[{"SmoothKernelDistribution", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Correlation", "@@@", 
          RowBox[{
           RowBox[{
            RowBox[{"Select", "[", 
             RowBox[{
              RowBox[{"GatherBy", "[", 
               RowBox[{
                RowBox[{"Join", "[", 
                 RowBox[{
                  RowBox[{"totalExpDataCLRNoTime", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ",", 
                  RowBox[{"totalExpDataCLRNoTime", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}], ",", 
                "First"}], "]"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "All", ",", 
             RowBox[{"1", ";;", 
              RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"{", 
            RowBox[{
            "1", ",", "3", ",", "4", ",", "7", ",", "8", ",", "9", ",", 
             "10"}], "}"}]}], "}"}]}], "]"}], "]"}], ",", "0.1", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<Bounded\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<Gaussian\>\""}], 
       "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PDF", "[", 
      RowBox[{"correlationsAnyRandom", ",", "x"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"correlationsMultiple", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "x"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{"correlationsReplicatesNoPredation", ",", "x"}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2"}], "}"}]}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "250"}], "}"}]}], ",", 
   RowBox[{"PlotLabels", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<randomly chosen ASVs between different microcosms\>\"", ",", 
      "\"\<same ASV between different microcosms\>\"", ",", 
      "\"\<same ASV between repetitions\>\""}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Pearson's \[Rho]\>\"", ",", "\"\<pdf\>\""}], "}"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"mycolor", "@", "3"}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", "2"}], "}"}], "]"}], "]"}], ",", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"mycolor", "@", "3"}], ")"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", "10"}], "]"}]}], "]"}]}], ",", 
   RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", "/", "1.2"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"myticksfull", "[", 
     RowBox[{"0", ",", "1.5", ",", "5", ",", 
      RowBox[{"-", "1"}], ",", "1", ",", "5"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<Fig. 3d.pdf\>\""}], 
   ",", "%"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"correlationsUniques", ",", "x"}], "]"}], ","}], "*)"}], 
    RowBox[{
     RowBox[{"PDF", "[", 
      RowBox[{"correlationsAnyRandom", ",", "x"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"correlationsMultiple", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "x"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{"correlationsReplicatesAll", ",", "x"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{"correlationsAnyRandomFamily", ",", "x"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"correlationsMultipleFamily", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "x"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PDF", "[", 
      RowBox[{"correlationsReplicatesFamily", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.7"}], "}"}]}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "250"}], "}"}]}], ",", 
   RowBox[{"PlotLabels", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<randomly chosen ASVs between different microcosms\>\"", ",", 
      "\"\<same ASV between different microcosms\>\"", ",", 
      "\"\<same ASV between repetitions\>\"", ",", 
      "\"\<randomly chosen families between different microcosms\>\"", ",", 
      "\[IndentingNewLine]", 
      "\"\<same family between different microcosms\>\"", ",", 
      "\"\<same family between repetitions\>\""}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Pearson's \[Rho]\>\"", ",", "\"\<pdf\>\""}], "}"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"mycolor", "@", "3"}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", "2"}], "}"}], "]"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Dashed", ",", "Dashed", ",", "Dashed"}], "}"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"mycolor", "@", "3"}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"{", 
            RowBox[{"1", ",", "3", ",", "2"}], "}"}], "]"}], "]"}]}], "}"}], 
       "]"}]}], "]"}]}], ",", 
   RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", "/", "1.2"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"myticksfull", "[", 
     RowBox[{"0", ",", "1.5", ",", "5", ",", 
      RowBox[{"-", "1"}], ",", "1", ",", "5"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<Fig. S4.pdf\>\""}], 
   ",", "%"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7811820765657635`*^9, 3.78118214921594*^9}, {
  3.7811821854738584`*^9, 3.781182252164715*^9}, {3.781182290402417*^9, 
  3.781182353446559*^9}, {3.781182441990031*^9, 3.7811825086237698`*^9}, {
  3.7811835231197805`*^9, 3.781183565723033*^9}, {3.7814373377727075`*^9, 
  3.7814373462356935`*^9}, {3.783088619918414*^9, 3.783088670400528*^9}, {
  3.783088707378881*^9, 3.783088731108667*^9}, {3.783088761554407*^9, 
  3.78308877625694*^9}, {3.785273426872892*^9, 3.7852734825287137`*^9}, {
  3.785273529365509*^9, 3.7852735670881705`*^9}, {3.785273602399662*^9, 
  3.785273651497343*^9}, {3.7852756424773736`*^9, 3.785275718816408*^9}, {
  3.7857004382673216`*^9, 3.7857004819842386`*^9}, {3.790445460958853*^9, 
  3.790445498150329*^9}, {3.7904462659130783`*^9, 3.790446314444833*^9}, {
  3.790446407287925*^9, 3.7904464078799534`*^9}},
 CellLabel->
  "In[603]:=",ExpressionUUID->"ba4c6fe3-ab94-40ca-b4ad-379fd0cde024"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxE23c8le//OHANqyFZZURUSAplh1cqKUIJFeWNlpQ9QskIGZUtZK8UGdmS
y957747tHJxjh6jv/Xk8fu7fXx4eh3Ou+76v63W9rvN8vXiNzDUf7aSiolKk
paL6388zwEb694+CasOW2FMf5sOLFnfTJyVkRLVaV6nLXgidnXtJZYZz6JWi
4PxrixI4UmrOIsU1i8Lc3rK1rJZD7rNK6gNDJCSxUDf6QK8GDN6Jzfe5ERHt
jrIG6feNsBb40gvBNGrPYZW81dEKCQzD7GEjk4hbkkvPqagDIlXErDq8J9A4
q0leRnY3uD03tD95bRyJf5bYbenUBy93fX1hNTeK3tyqcQ98OAiGLi3Hu1NG
0K+TU2ply8MQ8nMiLNKEgK6Wl8+05hKg6JfgvjS+YTTdqt4UwTQKxxgvXNSK
HkAhmSqpQzpj8F3Iy2R0rBfl8oxPJgePw6+qrKOSkt2oKE+bt/v9BEwIh5xF
eR3owvHPLAWKk3Dw9RfJMzva0ExIYoP3/CQIS1KEk5YaEe3xvM1HCVPw5vJc
a6F9DZIT6PgU6TQNrFrp/ncPlaOQKPOJozeJ8H216kDt8SJEby7IobBEhKSB
ifdE93REsXOL6DMmwf2bXDkDD4LRRtflaY1oEhTuedlVbhsErsz3W5/HkEBi
dAe3650MiP52d+6fAQmOzf9Yly0vBL9ecScrAhGuJfQ1qd8ph/5fVYlrdERQ
UmPatZJbA4UikmZC/6bA778eF9H8Ruh0GHj0en0SatSP7L/B1Ab2LV/e5pIn
YI6X9XV7RAe8KbgjIcwwAbY2pwz92Lrhd/XhslH5cegZZNR8XNsL5OtfpjZv
jYGBg9wU7fUBaMm7vvvng1GoOCXlU0E9DHGe7+qclUaAn754OvEqAZ5Z5/WW
nyLAkeJnStReI8AYQ7/GcGYYqDZ2frEaHQWVUFa37MkB+H3zp37ViXEYV7m9
k7arDwbE/+M84T4BdDFp3xQ/9oDFbcaDfIOTwM1nuiJ5qwvYg8fv7D4yDS68
K9+WuTsgXS/285I9EZY7nmfnxrfCbXnnq7U/SRDrcuvtb59GyNI35ZPdnAHe
jj060vtrYW3PpV2F2nPwQOCG+P6WCtBsOy95JIwMLOdCPe7tLoP/tx7gfUFY
6FQOAs23Tann/qOg8QSl1tz2fODXrE1lYSSjjz+aiHz3foB9vbzzZsksOnb/
t4D0WikQWTn2J7yaQRoiYfv1D1eByZGHOpyK/UjbZbjMaXMMrq5FKu1734Os
rVFkNvsEGDkkfHFc7USkk/3jjrMTcL2xKZO+thL13Lz2R540DWYaAWE/TyIk
QOX5iPCZCBet7j2Lzs5B91hY7/FIkkBo50b2M71EVBFfXcvkQwKXTsFOzgp5
lO+3FmmRRIK67P8uZ3knAu2ZUEtZbxLEWOhXyufnQOqwAF/CSRLofspXeS6D
YGjyGHOZExGU12yneWmrQKBu9rKH1zR0ivcGrqfMwnef8iGXlio4YYa4Zlbn
IJcpc9+e8+Vwge6kP8N1Cmxwpb2/wV8KF8YW6sMzKOjpoBfxr2s+NPsn71N4
QkZpGmY8plxFkNySKP4f4xyKvyiCOBhLYddMJaNp4wwS5TCzsN1ZCdVsmo35
lH4EwWO72FPHwCmA6c4L6V7E/9zA0rlvHGJjhB7dCe1Cw+kCXG9KJsDYa6jU
8Gg18m98mXMtZxomnV6e4eouRY4OY87d2PU4igfIn3uejwok+4nObCSYJlNi
hSy+IAYx1ZbjL0mQsfz82HS/OxI88TZEP4EE/DJHMgIvRwP/vF5mdCgJhjIz
TiKx79DFX2tspEyCkiqZ+A6nYnglCvvzs4hQ2ySgV5BRATsUm8KY66ehvC6+
P1xzFixvGj74OVUNH+R2MGomz8HFcqMg3j/lUPf87BjrIhmk7hmeOPWmFB6e
+vKuiYGC+o9Op27pFoATM0llpmAO/aL/E1bSVAwMx+0IrwP70H527d40lXFg
+U/gXNxIN9L/JNfVoj0BjAmnOi9+LkaGAX/0TrUQYU+mQDj9nyzE/eisvMpN
EvQK0X24+z4avb2hOjoTQoInT4Qe5/11g4L5nCtCiST4Vy8qxr7wBdLfvliz
fkECQ9H9/xXL5YPamlbwf7QkmIzZr3r33yxcpf7NJV5VCcUxTifdlcmwPD7r
uiO4DPITeORpkykQnilqtYQ9NqmD7v2NPRT0KV1lTvpZPvBlsv5sDySjVd2J
8x+CCkFe844fo8wcKmZhOf3zIgJ/7QgmzeUZVJgQqqPysgJsmK/R0igPIOV5
qzl51zE4rK82IvyhF7nK77ULzR+H0rPki8qTXejb/vKqkOQJsHs8Ufu+sRrF
sJuw0YZPw9/p4F9FdmUotGfgRe4TIoSGpCY71RYgdce8CVNqElyZMDnks5GK
Zk/953rDigQ5De1VGm0fUNvWDjatOBLM814vFxoKgzRxdYWgTyTYvHFn8B85
EyYaD4rVaWGv92+o0R79AXbr57d+1hHBq8AleNfuCmCRpKveia1XWRavv08F
ZsHRq3T9lkMNVByL96Z+PQdPzla7lBpWAANP/jv2KjLs/lARR1NaCnp3z0dS
SVGQb5h25tLBAmg/e/eP8/gcchEL45vcVwzFR005m4h9iNHmeOXqsXFIP2VU
rCPVg1y4eNnspScAHPQlXaZ/oiaCpujSDyLwH7y4U+t2NpIPUj9w7DIJGvY6
y+9ri0NGezPPPvUnQcVR77dRjFag8v3EW3YsPjyEWtlH8p9hVdv4NJ8rFj9a
cw9urefCrbT26zOHsf2JtGh2snMWmi8GnPa/WgXzntwJUjxkePv2z7mV8TLY
1E6c3ONAAbcfJ+8YUJfCtdz/fjx+S0G2lOucXfH54Ggpde/LeTJKtQuYD84r
Av0Ou87pA3mo2YxH8wc/CbzXbIQaJpJR+gfdhiNvSHDrPMPOHXW26D87JbNu
bH6eEfytttUVBy5yhcwPsPGXMNK+eG2TDXYvr/0QksHil7ZBaHTzHDiXx/Bx
hZeDe9E3GSYeCoyzewRqaZSC2RabU8QkGYkKlmWyZhcAWX2/KIrOROePRst8
uk8CDgWmuAj7cLRrecDweQQJniv403GvvIORa/NqF+NJEKETLtCUmAaNNp8H
i56T4G3BYEarORm0VbXtg5XLwGohImhXBwWCch66z9UgOCuoZjQ5Q0Hfj8Xs
WnySD42gxhqVQkbunHps0bcKwYv5u9xTtTnEcyqaIbqvBLr3eARdpptFNA2q
d+5IV0BjQOXxb1YDyGeUzvn08zF4VElKoi3sRUtBZ1h0k8fhxmZLlgJDNxIf
9V2SiJiAV9rExgS+GmQWy91303cafKJ5pffUlCHOCwUDrveIcLxaeiDerhCl
2VD+aW8Swc4gpb0QvqFV1zb3bFMSRA64NShOBqDJp8f+tWH5hlboWIPdyVDI
E1kzSY8iwd64NIlYtUy4+FPCb1yXBD6PBo7xWhbBF1fuVY0uIkyfPi12Mr0c
fu95kuu0Pg12hY6M7QdnIZHmc/vb8hrQ/2h15dfTOZj+6uTMGlYBovYOhp/S
ycAQUnNj8Fcp6FjsPs6hSkEN0uN7Byn58Krc/5bKxhySO/GY6nv2D2COmZa2
Ye1HdaW3E7wYx+FPwD8XMaMexGjOpXP05ATojL+Y4vYuQS+flGUwfCdCjmKL
pAN1DmrqyJLglSfBhmfx2nm2BKRhWPPL4j0JXgZdqX8mbgCGK07zJtj8D10P
At+xJBDLOjZ7zoME/kf3PIu6kwt/56O0PHlJEOY34RJQMgsh+m7paz5V4LNB
/u/gXjLwNGnH/jtQDtwZj3+8M6KAjKI9F5mpFC43Cl5y+YTFc9l05US/fDi+
wzzH+iYZ+Wb/sb5vXASzu3bTM5TkIY1S9gtT3CQosP4+sSGUgoZ/aarxOpPg
DpNNojFyRqq7ho4rY/PfYLRc89irWKjb07AeE0SCZgO9Vu6O73Bas1Tb5gIJ
lmtFb9kXzcGNhNFqi9pySGa2YAimowDD+aUBeFoKT1kIu3M2yMgjUSud/m0B
vHKOeDh+PQv9aKKaCb9NAgfx94c2dkYitnfHeq+EkYCkeV+KtP4W1KI0VSSx
/bCR8ZHwkkoqJBy4ffQpFi/5hL89/6pHhj2huxZ8TcsgWOW+sUcxBUK/q7y0
aEMgt1GkmV1BQb+dHvjetcmHs4SYZc5ub0SjLEZjh60n3285BcP+n+Apk/bv
w+EkmK1azv84QMaeE1oUjS0Fg4tWLFN8FKSyVq21V7wAIv0V3QZ9Y9HKNycf
Iez6a3+TT1LTvoJz5k1HarH7c9ZjUwI+pkA7mcKk+ooE/ZsjB739KBD2LE8g
iYJAPTr0nJo1BaVdq7OtKsqHT7U30NmkJ2jvrhiPY9jzNzKceegvgeUvqeOs
R2VLoVj5o9B5ciha0AueCYgkwVrwyKzgmj+Uxb5RpcP2hxthvSWuRAr4571+
b1KCIDNbjH9phYLk9es+qD/Oh3jap4pu2WRU5hVo+kqyEM4s6weF3J5DapIP
nBmSSsDx0UaHPNMsakp+mh90qALWbrhlu3gNIBmq2+0fDcfg3QsZOtvmXtRx
19vJJWocDo9ceCrL141eNFrsoQmeACq1meZ0tRrUNWYv+8J9Gm6sPxkXo5Sh
+zbJ+6d1iPBM39k2t6kQDSzs3V//mwgM3MqZN0e/oT9pPjSPnpHgVWgLYjgR
hOZ5cpYYsfXueSOjNbIlGD7FfY16j50/+AO/VRLWM8AiV1lhEYuP3V8bGNLZ
i4Dr2xeZkX4ihBm/+Xf+TTk8tWU7fX4HEVj22bDT0M6C7w9G++9TNXCqrf94
439zwE+cvBuQXQFlif2q9xLIYPIqRDJioRQ6/0xP8WtT0IxXqkzrcD7c9Elz
FqEmI5N5dlvS2x+goJ9co3yqH5le31H0hmYc+JTUx6Jf9CDFBdP1p7wTMBq+
+4JZXwlqy07w+Z1GhD99rG2+93IQq83Y1VhsPwi8rNfdUZCA6Hcqd5b5YuNf
cIthXLsKs2xCSUHY887sXleMlkyCSMrgGam32Pq+mvNxjjYX7F/8Ol92ggSS
o8PeVdmzkGDDVy33rQruiN9W+EtFBiLFrdv9RDlkDNQkqd2mgGOXX50xVymU
395P+x6baPG+n8LavPJhvdaHcOceGf1py8xVVCyCc5EqCUdZ89GbP+vB2RzY
/BG7WRHYlILs6DQYjjmRgPy6Q1b9vhuSZTk71I6tt6XXN78+j44B8kLHcwUs
X+v2ot4yc/sOrnKX/5u5RIKyneFijzLnQHqSvtdhpBykL7StaW2RIV71q4uE
XSmWr1XWlu6moEwj7m+7LAug4tDI39WELPQ8nJ3FCstfUjLq209ejUI8d5SZ
xT+SQHCoQv3GKw/YWfPmaib2+ZNz9Wdoor8Cl9b5Z3S2JKA8YlX9eJMMzvL2
hdUuZcD/okTzShYFPmb9XBXrRlDkEcNW2kRBJc03Bj1N82FJW2Yo99Y7tHLb
s2QHtt5Lnrj83C0VAb4JbRw62P7qtKgdf6cVez8fxXrOzFIYbtLpXRLGzgtX
P7j94ysAcXXCfzZn4lDqYOhwXQCWr+0rvtO29wUgf4f2eWy9qxoZSWuSPsND
PuHYvNckeHby0uY1dwqoL+yePbuFoPHky993nSjIn8v3alN6PrRqDIg2NVmg
XLnF9U3s/5feX9e4KYQ9vyWqftrLpTBT3jlhci4MbQgU8Dtj+d6ZnJML+VZ+
IHwUadRi632kUubLxWEKBOQu0AlXIMiJNI7uG6EgfqKNfcjTfPhxVLLH5rM/
GsgO3BMUi8XHwUM1N958hNafStItWPxwMUl73iFkAl0dbecvYvPvvRt1W4Mp
Be7/vSErsK8Uqi9cdrYOoCDdcgbyYGg+dPMrdohXOiL6zLDRDGy8rFMMxzuY
KeAgJCelcq8UUmtXedxf+MBHa97rxf+7v2bdH5ILKUj0tJ2s8Mt8sDCh2ed2
5y06JDmoRsJev7M0nV1AioSrrr0dA9jzTl7wd+JydYEUNd6nMdj7X211EaiN
oMDoxJMHh0YRtDJ9N7/wlIJq7WgTflbnw6mxLpnQ+3rIsE71oAo2/neNd833
fglBLjkzf32w/KBX48zIimQg8OrOv5fFrh89e9FZukyBD/l7mb4UIjBfP+a1
vkFBb17qd756lA/vZux6lgvIyAjOhM8IFILrw9yS1HtzaPxHVX61Twk0MknY
yB6aRVnBa4/FaCvgg+iIo0nQAHrS21oie28MeNoMCk/19aLKYsnvzOHj8OrW
+mVp4W4UrjjGSvafgPKrsxriD2qQFzX/DL3rNHzn9y1S2lWO1uXyfei1iPDh
a3y5wnohshKNYHZfIUL/K7aYqHPpiCTq7XXSBNuPllZkbCuD0IrjpmkmFg9j
T7N2ZPAFw4f+XVJb2O9nim4viH7JgLdZrawO/2HxtOmS+/JcIXRdNB/4MkSE
eY/0x1Wm5RAnRJ5mpyaCUe78kdgds3CnZv8T240aYCIzBJfrzsElL05ljbIK
2HN+b1lxFBlKelj1/2yUQpDiwLXTuhRkXTQ+mdWbD3JmRazxe8job5d1Bo3V
D+iUp/YTk+xHhpOUny47xiE32jZY260H6X5na/hwZAJSllVmQ3YgtNnHsvbs
KxG4+WW4Wb1ykMzlV+2/pEignyBUxbMnET1u91Qn+ZBA+MCQCfXp4zC22Dz6
Bnu+clXCFQKERGj7INMq7YXlh/fo00N+5QBT6i6R7wIk8PDV+/Bf+iykOi+2
6ZdUgcJN32/Lf7D8wzXcUlm0HNYs1zjSb1JAdj0q9R5vKbhG/TMO+kpB1OJM
isYe+TCeFmbXYEhGYoa+3dmni0Bn2nT+y4V8dITdBIVj5w0u/6Pfh7m/oHKu
JvIxbD9vljkqwhn5BmVF3isMw+LTvnv5ac4L0RDyOYqbCjuf90fqMh/S/Q6p
YjTjyUpYfONpitVLnQM5rbxcNXI5uHTvMMv9TYa5Dupbma9KIWkiT6iGnoKq
FN+kUT0ugMkHu6+7tGQhpX9JgsOaJLhg+jSzjBSFThUqSEdi73+V74XuG3l3
GNKLVJ7DPt9qcCvDT/krTJj2iSnYYfHZ7VrR++tkkA74fuShTxmY7afUJKdS
4LDYi5zAXgT2DQH21e0UpB2Q+3nP83zoZPRscwt8jxrjCz/lYPGl5/IkOuQT
DpyzfmnLWHys9vI8VFhPBsV3OyUPFpRCJPM12Q0xCno5bxnuwFEAVN8y1Eud
4xCtTYIXOxYf3UP5LKQ+2IB7XIswNfb8em+EFA4EfYbTcvWPZ7F8MgdZW359
TQEWDrapzR2l4GNuetfAjYJ20cyKtaXkQ2CVDfsTVWvk08eZQ8Tigdxxp8qs
49jzO3Sg+M/VUnBzsa7Y2R2G/u1XqVzBxqe2PrhJOvcBaHJ71Kmx+CKkZ8Kd
0EsBJonU6ndVCKxHdakIkxT0nGZPSYVxPgi/vndz4EoAIjAMuJ/F4sP5Qqe6
B92hULEa3aaAxY+/rx0+xYg8gk/jAqE62Pi7D0teETamQEPMw1SfA6Xg4Sk5
4hBKQS8CpWL2B+XDx8j+H82KTqjD8ftVV2y8+k4Qfo6BAhXfP9JXGZVC/f6v
p/KlvcGKTlZ1HRufU07tfFoJBQV3zY6Wv8DyjRO3qDQ+eiG/EhqhTOx1q1b1
vAb5SOitC33kiOW/PqZeTDHur8FM/0VFNvb+AY+zIgVDKPBT0E9peBqB353E
titmFCRrYPyurDQfDg8dIf/9YoQkH9s2SGLjP+6zdj1BNRTN2u5U58Suz3iR
9onfxwCw3Cp8HoddP93OlGu8FAockKpqoS9GYGp9rdn7VQh8Mb65mxuLL6x5
qx5Hb1DQAKGGT2cqH+Y1BBbNrXSAn6ZTxRl7/8dKH0Xn7lHgR5brlM2hUtjF
xJnkGUtBCmPH52Xf5cP+Ss8rrtyuqNyXdsd+bPyMi6dWApIiEadVru1PLP7/
gW85hbUUpMfff27eIh+YPs1OT7P4IqcWvdHz2P2gddNWfObtAOvOx+wHsf/n
C2J6S/SmgHX6EP3zVQRa1JJ0Hf4f0aoivzcdtr95Sf2wKr/jDwcvqwmZY/N5
VcdOrmOQgggNv84+MckH+n9ZlfKiYSDvtK9VDPt7uj83j5i+o6Cp3m+7+yLz
gSXrMyniij0SZzYXrMA+zzNtyJKIXCHIo0npCfY7leyN709iKcAuShLRGkKw
zPAjwJomBMkrhVnPYffXruvKfwYb2HlHWlPraj7a/v4W5fikv6sQjcE9g/3i
eNhu2jjcM1ydjsQv+CThnqFwz69r50Qq7hkJ17MPZOVk4Z5B6Hm+ShTMwz2j
soI2dsC2CPeMc8x+GkqAcM9oaF+Kf3iqHPeMtBAVh9O/K3HPkPEejFatqsU9
Y2blUtphkSbcM3heGN+LOtSGe4Y93fVrfCsduGfwcKYKx3p2456hUphp7LK7
D/cM86QxoRciA7hnvHLl1WbhHsI9w29V4kmy2i/cM5INNW64lRBwzwj53fS6
9vcI7hla0y2+ESfGcM/IjddhsBIdxz3D5IPeTgHZCdwz6P0lY2yZJ3HPaLl5
SjG/ehL3DDGtQ+wXjKdwz1hbopycmpnCPaP41nEWGvNp3DNYZbWjIiamcc/Y
7flmGa4Scc94WL7ziFE0EfcManN3eq9GIu4Zj/42uwXVEHHPOOHhumX2ioh7
xl0+eemRjWncM8YQ36CB0jTuGSRQnon1m8I949IOL6P3hEncM9glzPh+CUzi
npGZp/ThvOME7hnHA1SeVeaM457Bvvq298HkGO4ZS89FPjw8OoZ7xhGC3Rlb
zVHcM+Lir/bt+DyCewatiJLvIusI7hm8BnsrFQMJuGfcqBHvZpch4J6BqnID
ZJkIuGdIVy6/eTQRg3uG2sLl5VPz8bhn8Aj5/VN2TcE9Iyuw5pi7dwb46V2z
fU0cR500c6X2zhXwN596Te3TGNo65KTqW1oN5DI59eOqo2grV7Fj4lc97hGh
jZ4zYpaTuEdMXH16Y51jCky6l8sCJevhHk9pXe5hLD/766U2bdoCE6ueYW12
RNCVDlcK0GmHretTpqQiIoipxlIyezuhged3mGAbEZIFo/sczXtgYP8RGv5U
InClJnNJ7emHvTnDTqWKRAhsLyyYSBmEV08z+l4lTMNudTuJHfdnwK3l51q6
3gjuG7ZRcgIvWwm4b6Smx95yMSDgvnF35kOKGhcB9434QZnuOP0Y3De4rc2T
zUbjcN8oqnjwjv13Mu4bdUqiVJvfvgHbrZ9LKTITaH9771GrtnK4EHiu4Pzi
GPomIXWlrbMKcoyWjFQjR9GOQL5rxg11uE9MnAwM8bw0ifuEfKPw/eqFSegN
eDN6abUWDPRiBd/+mwYGEdEn75ia4f3iU19tAyL4X9L7YpHTBq+jEar/RgS/
vP68MplOKIj/ElLQit3v5odHqCu6IU56K9fjBxE2KvTy1Z/2QZGWks4W9v/r
J/602G0MAEu+5+K51mlIr9ooebh/BmSNZm99cxnBvUN8D2uL9iIB944bO/eH
37An4N4R1lUvcUuQgHuHTStyOGQci3tHfYXKYxv+RKB72LV6K3wcPQi6YRQv
WQmbHI/jRuwa4HGGchtFlAi0U/Ps8Q9bwVuefazAlwjHT/eMZK21w6mrsruP
VhGh49cjwdgXXXDO5WmLYDMRStx6QuY5eyHb588PulAiKAQuuPKk9sOmRaFa
OA8R9434S6SrDzMJuG+gUIOPl1QJuG8s/6Xf/MxCwH2j9cTFn/FSMbhvnOnv
EvMyj8N9ozQgIHK/XDLuG5+u5rBW1KRBn/rvsyWGE+iH/mf9F07lYOisEvb9
yDiqpxtmCHxYBYez1eeGK0cRlY/Cz4ArdbhPmN5MFc08NYn7xNWxGnY7LI58
oNRbcenUwleFkHPfF6dBvWaXzfDDJmAsXHpijp13hK/J6Rk8aIMStBBtl4xd
/+wLDhVSBziXxPDMYPfHjfcq1D/vBq/y3jW6ciIY38hz7z/cB4v6xewHzYmQ
1vJJDxIGQNr+K0cDFn/ddvx8EzpBAsc8knp80AjuHeN7aZ6Qdo3g3hF8Tffh
Dg8C7h0z+04KiIgScO/oadO2/SkYi3tHi17JapZnAjT+d0Dyadk46pfao1DQ
VwHZ9t/EirrroZ4rJZx0nAgC2bpHG/a3AngFqb50JQI6WxAU97kdWKUfh94u
xa6Hddc7QcEuMC2ZXLyHze/vXUX5uVU9wE7JqWGMI8I37usaqbr94MBxVfqs
GBH3DSopd2fOUgLuG12K+RZx2gTcN5Ru88d2HiLgvlF25dZx1/AY3Ddmrdh/
7XkQDyvyjr9dqNthkfrkrtAcIhBc5G/JeHdCUHDSV3UsXkW8dP0D7D0wzcgS
TI+9vu0XHpEm2PmAgPuFAGNrczMvAfeLnEu15zMzYsFLYFWk/FoHnI6MoNGr
w+b/19rKQzVd0BzAfwkaiFAvsmx9yqoXYudS3Oa9ibhXaBT7VtQrEnCvOOmh
y3qNmYB7RURmxXj12RjcKw7NmVp+kIrDvSL8jomJ32gS7hUhkMCroJ0GRdeD
22ttJ1AFmTJyQKscFle06czOjaP9xrx3L56uAhW9V98F+0bRcHPiyDHqOtwb
8v6dbangmcS9oaBlFyWqbRJMoslFdDS18Nbh11/B2WkwCzJ1pGVoAi69AGNr
dSw+NQiL98q2wSv27Be28URge3vl+ofyDrBlGAlZbyLCZr1Ma5piNwQmzxR3
VxIhNvTBs9j5XpiljvzKjO0nnsefxyW8GIB27nKl+/PT8JyH+3FGGwk+pLGz
aEaN4H7R9IL60q99I7hf9HeeDY7zJeB+Mc3COfNCnID7xQZ7CmfB/ljcLwLz
S0NspBMg/X5al3XXONKJeekcllYBHwTaHJI964GZO0eslZsIZmd5lFFlCzzz
59K4iOUj73JTnrM7t4N3Of/OuJ/Y/Mhs+/mcqgtintxNqsTms7Bz2tWwiB44
7qvGrImt5/GH6xKWZ/vh4hNmPQcZIu4V500MbqnWEnCv8Lp+SWBal4B7xVQj
5ckUOwH3CtmdLlsxNjG4V1BbV5YX88VDealJ69pgG8S+mztkkEWEAs59Hk6G
nZD8SSB2FzafWU5Yv+Mjd4OkRdr4RD4R9wi6wTaXw1YE3CMaaJuSt44TcI+w
HGX28/aNBZ2vk3SyvB2w8jWR4zqWn21e/riqF9MFbCNffzJgz/Ny38RuBuVe
OCmnGbPpR8T94e1Ju9NvrxBwfxgeF77dis3nbX+Q3lFyjU81Bh7f/DJNzdQJ
3mb6XwZbiEBnr5M+9bEb9u1Qf3sCEXF/UFxwOKMoTMD9wbbk2cOky7GwmFFT
dLK1HQwmWuaWsPj41VFcd1yjC27wCI5cxN5v2xuOnDqsrsBGwL3hqi+/qlFJ
DNBNmvGuZHbC757gd++w+7XtDY30Z4jZ3Nh6nFRbcWkno+mLOia6A7FQlEh9
W8WqA8I9Dngt1BPh+oGNwA5yF7DXbhg9xdb7tj/YnPDqKMPyuW1/+HykULpK
LAb3hwCm+ZYM7jjcH/bPXPIszUvC/WE43E/4AVcapDYY8TU7T6AaguXFIigH
2Sy9UlUFLL/jWszMPFgFRiLMIWpjo2h/2oVSqYla3A9cYmbUYtkncT+gVMX1
iTVi+Ygt1a+/QzXQfJejeWR6Gl47xG99Gm0Exb53SXqqWL69P+loMH8bzM/p
1j+LxeJ15+lHmekdYPzI/ZoG9rwLYr4f5hbuhrDDK9Hy1UQolinSfzPYC95V
DFqKDkRYUteq7DIcAJ5FNb3klWkwSlfv+VFDgo8CWasn40dwjzC5dWLK+OAI
7hGvOXjSFj4QcI/gIn8m1EoScI/Yq9BmJkEVi3uERedOpRssCRA96HjC4dc4
YrslHksXWgGbf0ejIvXroYC7aKuckwivD2vV3wpvgZSKtiXv/41v9ejdLpN2
qKClLVAqJkL1VkH3h9lOyL0kGLOKrV/irRMB9B49cFgthm8uhQhUdDdOanH3
Q/J+h9lIeSLuD71v1OUfNBJwf5A4l14SdZ+A+8PRe+DFwUnA/eF2/YtIQ+MY
3B8OLoXnhOyMh5M7x4pzatvgDNtSTUwGtl88XYqKUesEkZhpjmFsPG3rM51B
vd3wvFOrKbeQiPuCsDnlnbgtAfeFqDcNTCH8BNwXbPqeurc6xMLPGf2VlX0d
4O9gfkASe17Gga8PvPbtgkRRn+pP2PPcka6v5izWC2Zjyd92BhFxTzhm8Mxo
AjtXbXtCAQvbGjOWX217gjuzyxsjxRhoj/bfIfi3A9zZnMcfYOut6nrL6h23
bnC70cIWj+33257A5twmJH2GgHtC1TdhvguSsXBnAT5P/GiHwUUPwvcybL+o
5bSmkeuCYTNaUgv2ftt+IKbI84Ie29+3/WA3sTh/ITUGbM7pyB6K6gT6gHER
G2z9bvuBdnCbkdRRLF+wPFv4fpCM1C8duOVRFQu8k06XaPQ7YIxRW5kfW78F
90ZSV/q7YCmN8ZYW9vu2J6hrW9pQY/Fq2xM+XGr2rz0XA19l/jv3vLsDHB+X
6lph+RnZiJSowtIF3r4+qYHY89r2g3T5WOWcwwTcD14nEv0Z38bA9ebjz/Vs
O4Er7PGJk9h4Z73+XPg8T0bmMz/DL0bFAsXYjOu1RAfoDfadMKrFzge/M4Zk
srsgxU7unBB2Xt7FvelUWUOBXbmX8t5h49vYVd4ydqITPlTLm2ljn6+aMPTI
7ls3dEcmRWtj+9No3vsb/YexeFnDaq6vEwu+ZhrNpuPtUMVGvU6P7b/bvkDP
evCENSsB94X3p/2H21tjIDLsLV1HZSeM/KkK1MXG2ybu49hygQJBjsO1LkcI
QChjcsza2Q0wNm71Ghvvti+Er0SffY3Fv21fON2ZbXQZi3/bvqAjZCLezxSH
+4JyjihLX2wS7gv7Xh7YkU2VBsf3qtS3uk+g2r7vVn4S5TD8QT+y6NI4unCX
m9V8dxWYhevTGEyPosSIDxmKXbW4D1QeClj1YZvEfWBv2XzzyzosHzekX1iv
q4HFunwJhalp8JyVg8nGRogXoWtquobtl2dG2Ky42kCoN33pcQwRpF/GWZYl
doCUifuXGez+s+2hFOvwdkNE2/qBBWw9qfg+6rVp74XbJ2oFex2JIPSwtous
MwBVA8yTKmvTMLgyeaC8nARcE5tTIYkjuDfIKEoUfmMewb1BQ561INyfgHtD
nq6Z3oIUAfcGgdgG0enFGNwbhkYTuBR2JgAbl1HTy/FxtJrmn1nqg+XjpJmM
jyr1sIfn5wM5Diyf8iXvjX7TAlfuC1eftsfO44fua2QbYPul0G+mMOw8+SpR
eCxmtBNKsw5EHsCe79USQ4mLjj3geFo/mP4rdv68+ydeiaUfegmnctOBiPvC
Z3+ls+bNBNwX5i0E6A/8R8B94eexJ4dzsPi37QuvOu4Uuj6IwX2BLdv9tNti
HAzy8WQHlrSBjm7fpdx0bL8+8ORr5qVOWD567U4DNp9FHwo6NDZ1gyfNl7Ko
IiLuByXSfwPL7Qi4H3iW1dcaCBBwP1juZPm3ZBELFvs+zXTs7IAhQid9Knb+
5JZZ5PRz7YLnvesqo1j8Mzj8aSGfvxcYpdpyPIKJuBdY/pl4xaJCwL2AZO35
5CIW/7a94CuXYaybXAx4Ke1mkFnuADeTA24CWLw6nr/3U8CLbvCg73yrjcWz
bS+gurKVck6EgHtBC5Q1vBaJhX1Mr6IqstrBgdXuPDX2941mfs6HznZBEtsL
Mzbs+rd94Hxj/F5zLP5t+8DYITqzwvgYEOqvuyIY1AnNTEqmhtjz2/YBhfbW
w7uw80lG/nHO4BEycq14VhNRFAudNEUy47c6wKv7d3Iplq+Y7dIuoGnrAoMY
zoY6LP5te4Hc3MRlASy+bHsBy0ZtkTIW/wwI7eDU2AH2RTfWJLD4l0ivn6W3
pwuC1y1TUrHxbvuAKnVtjxqWv277wL0OceVepxjYaRtm//wZFk/Ya4zYsPF+
bZ6L/7ZCRguTxiyPg2Mh3vsr071THZByCY72YPnmlehjJJUvXcD6VDk1Blt/
13OEl46XU2D+eoFnOja+zK8Sg8ucnfCOo3kvO/b5X/dz7MmI74aF5vVA+RIi
xG06fyccoaCV8lKiq1osKPj5Vqr2twPza5Ol1xVE3A+YY4MLe7H4t+0Hz+4N
BEfUxIAm/GEZL+qE2aff/Kyx8XI0FFFEzlNA5CLNXQ4sPww19vQsX+uCtC4K
aQmLf9t+8PY9865YLP4tmELl7DwF8T4pYbjyv/Pb6aI7MQUdEGHgTvyOzb9t
HxArC3VWNI2B7zN7dpmGdMGQF8dFbez1IcL7oYk8LD9/FSewiF3v49FAzaPv
u8HlY30SGcuPebwe2s0JUNBPzjD7HfKxUPJu9DTN505QOuC+6Pm/+/ubs39e
hALPddrTnvEQ8O//ad93PL4mHgPSxXZhMtxd8PpIQroDdv8uz3bqPbOmgMbo
F3FZbP+Su3qWPxY6YL+tzak57Pou31evaBfphACrb60B2N9vf///1/u9/37s
/h1sQvtlH1JQxt/Lgnv7sfnJGWMau68b2uf7Nuiw/9/2gLT7Qkb3mPDvP9HJ
He7HsnkUcA8Io5p6tfJXGfeAkBn6zFLu+7gHMBHv3Y+JNMM94KopM+vS55e4
B1w+ciLypa0n7gH7m1cDJrs+4B5wYCMuiswdhHuA8L1aHt5bIbgHOF/maV3n
DMU9IKPVNx3aQnAP2H+CsJzSGIx7wMFLd5SbloNwD/hoGUxMDwrBPaCsRVVX
ZDkS94BXDp+vrmR9xj1AU7sXiHeycQ+Y8GexuCBRjHtA0wN+67uz5bgH6L0s
e3XcqBr3ACp+nZ0cD2txD0hxO1jHuFKLe0DO7fNcRNk63AOaR7g06mzqcQ/w
6LRnPXmiCfcA8iM1e4+wVtwDzjoXDzTyd+AeIPeNSpNasQv3gHOE3d9LE7tx
D3inbK5js78H9wCDyqGde7l7cA+gY//V0tPUg3uARVKTFKG5D/cA/yubDAmW
Q7gHPAqV5ewKGcE9YOK4UcHY8DjuAaf8Ek9bfvn/HjD9dCdKJM/gHrCZ9+TI
P08y7gHvPM/xHtGaxz2gRcetUEtmAfeAM7yO92edFnEPONFtnsehu4x7wHlT
VtfE2FXcA27WFak9VlvHPaD6jvk5su0f3AOSo3YKOv7axD2A+HLthP77LdwD
jvejD/JftnAPIAcGnbOP28I94KNSdLDhWUXcA/LWnt8lfNHEPcA8wLa7wPER
7gE3un/tGFqwgT2bG47LIiSUbS7aLbLuCml+OsXXR6aRooxdxt0iH2huFW5L
9Z9CqWpS3gpmARCbRludKzGJfj4Kl+J/Gox7wvRmrUTeQAjuCQM72/adPRyK
e8JClIeE3P0Q+BPdr19IP4Ks+usYxS8Fg9XpjejFl7/Qv4PzVKLSwUB+IS7g
QhhEedS7quY1wvD+i+WDEcBzMx7vv/jBfP1VrWs63n8xms9rsyMpH15qx+Ss
6rWj6XALztXQUhBg522ietmCCmqVxBQ6K+GOPPm1iGQ9Grnbbfsxqgbv1+D+
LPxwtK4W79co1wm+eG9/Hd6vwahafKsqpQ7v15jrBc2RsAbcRzSqL1UdoW3B
+zOuWac59VzpxPszLN5Uj8eyduP9GeHCnleEFrpxP5FuZzjzkakH95Ope6Eh
rjd7cD9RbM7NfPmpF/eT3u++kT9MBnA/Sepk2dTbR8D9JK/+gpyb8BjQxfR8
81T9BS1HXRri9UgQP8p8SHuaAA/inajzb8wBg57U7/MS2HxfHus2/UKBzROE
XVzuY3B/Lk71SuU8PL3EIL/SOQ4/xEkssg0LwF8tFXpMdBLSn9MkX9FZgkrb
DfGgV1Nw7OoryQsWK+DWeGDtPif2OeX389hsNnCvcbYKu9VzeRP3Gpu2dwqf
NbZwrzmLZjIgaQv3GgOQtPdI3MK9Ji0jitQEgHvNJ2tRG70KNdxrVJLctnh+
GOJeo1lS+Mj+ryUQsv8rdfUkodtkC5BKdwYahss6zGeJ6Nn0UA1LuBeMiXWm
SUxPIcH89jg/W3+IH1qkJPtOouky3veE1iDce/LtLmdLx4Xg3vOSWos6lC8U
9577dBYdfpEhkH6gq0z57gjqW5017XUPBgETsWUVFgK6YvXGdmI9CDpT09lD
XYdQ1LE+4bdFoXi/TDa3vNQTmVi8X2ZY+6tGPOkr3i9z+8T7mE7LXBBVjFjS
pe9A8/0Ku8JyS0CTOkr99n+tqESq0dWGVAHlhWRtUnADGrFd9fY9UIP31+jY
f39tFVuL99c0nj/0qZqqDu+vkYzVMql9XIf311BWL5xcWa/H/UpefUg6fG8z
3k9zI6NbVLCoA++nOe/k5/8hpwvvp9GbpnWqbu/GfctQR3TnMmMP7luvUhPq
dER7cN9KOe3cHyPQi/uW5ej418P+/bhvKV6J3P07dxj3rUdabwvV74/C40e0
XEkpw3DM2+HbhgcRxlem/r0Kw/IG9SyO/MRZCPW9GR07PAKusqvh3NxYHuJn
qaN8bgwOeAu5a72bh8z6CbX7TuPw8bTj+9+vF8DFqeHO8f4JoH58O8VsfBEi
HlMn6ApPgXFi90fmkWU4zNLbIojlwWfb1aWTxtdxT3t69FrYybE/uKf9DbE8
ReHewj0tVH1DqjxyC/e0lOR7lTKft3BPk42aknHedRn3tKkSfY5krdugUtVd
F246i8zWFIozKp+C5sGnfJ7+06hgZ22IRus7KDD3WOGVmUK1nRVWzzQDIfol
V2TlrwnEEfS8RXomGPe4xZmbb5p2hULxUI+UweUxxHI55KLmZggI8nrKbK2P
oKZ0fcbfbCFw9Qzhj1ARAXnuVaqfZAyGUM8AbY2WYdQuHRN0JRd7v8tF4iYw
iCTeP5EuNorA+5suVZ79W9iaiPc3hcnx+JOksqD6aaJtYHob4t64weVXWwZf
Bei2NKWaUfu0b/JAShWQS+c+2/TUotX4i5+SGGpBlLEkNsu8As3Xb+1bH6vF
+6O6r18dO81Th/dH8e/0LbKkqsf7o/bbKqXDrUa8/ymRfpSnqq4TXhZEOLht
lELs80xj8uNuqOartPXVr4Z/fPvKDu7uwX0yak0xZ5K1B/fJEL39HoNvenCf
/CWRYWUi2If7ZLNirHf4f4Ng0AJnTkuPACvLOZGchTnY+KGeNd85BmpO5G7v
rXngK5YUfi88ATHnWr9k8yxCA0NiB5/nJOi9jtfUbF+CWXflo0HPSXB2XHBk
dGMDdLsXUqPSZkD98EaRXNgm7ptDq7//Rths4b4pYRur0JWyhfumRNY1lkfx
W7hvbqofpzpwRwH3TWHzZtuTOSq4bw4E80bPshrgvim0fLbkbrQF1B9gelCb
RUKxBtrcSfFOcK5JNsFOl4jOFYed4337FsxGP0dsME8jgWmeAtpxP+Czm3aP
yZtEctK8cQ6OQbiProfsmFx8FYL76NmjVcQrvKG4jyZ9pPlKXRACdFc1lxhc
RxDH+YRP7CnBMBzkW20NBKT2dEMhcjEIaqpmmHjbh9DvshzWaSyf2O4v0458
IG4ZE433l32wUDqyfukL3l/GwCQep2SUA3vyDzHvN+hAPmEszjvsfsJ3xYTy
i5mtyPybjZKiaQX8/m1Wpny5EfU7MVZ5/azG+9E+zGRGDHrU4v1ohulvfm5u
1OL9aLbJp0p71evwfjTb1b6ts9n1uPe2Dol8VwptwvvPWB0CgpQtO/D+s0Mx
JhPer7rw/rNoc6PDP3924x68FDlSVHOgB/fgzzfpDKdO9OAe3BPM271rrQf3
4MrzpM104X7cg81SOFj9DwzjHnzxRAuz0NoIBF/luSV+exiSLfIc1Q8TwePf
zWV/CwJweOceG1GZhf6E4QXN7BGQ/2Y7w9hJhn+Xi/4N7hkDzckBtocW86D1
4aZOwM1x+M+cD97oLcCZu6xFxzMm4C210NzezEWg/rVHV2H3FIgcnQ2wilyG
Mani8x/iiODl3jmVGr6O+zNjxzXHtPQ/uD9byFEbVlFt4f48JUOfwRi6hfuz
HoRqG2LzfdufxfkKP/g4XcT9+Yyw0GzPmBaMKPscVw2dRe7pcn2aHk/AufU/
c2LBNOoutpderPaFS0fvjk0+nEKHbP1df44GAA8Lk9jPPZPos6t3bFVaMO7X
9jZFv7QWQ2Connyox3wMnXY9Zbh7Xyj4Wo5U+PONotaz5n2zsiEQ//j+6cUR
AqL2GxwSFQyG3f1KG7EnfqFomXuOCWbB8Of+79MrfoMotm/NiupKON4P2Er9
qITkkYD3A67HT7l3SmVC7C/ekMvU7ShFhMZRSKwMjGNZJk72NSPxmDthnIpV
cOyfKXO7Zx06uMuqs6y/BhTIVSlDnJUoNYP/cUpvLd5P6P3WsCeQtQ7vJyxf
dlI0aKvD+wlTHOhNoxcb8H7B3z5rNdrencBy6aVGpGopxMhLfLpwoRs89x/J
6P5eBee2hPWVNrtxz297tU9tiLkH93zW9DIJb+Me3PMd2FwjlIZ6cc/XMf7c
EDY6ADv6vvApMo6Ai/0Lwyvxc/DH4qOuZ9oYPD6W8+YLYR6qnePFy6gmYGJm
b8vL5QWwJ82JH9ObhBLFZ33cQUuQn3Lq3dolEuh4nHT/VrABIkw5Fi3uM3Dv
mYFZlfkmXg8wcWziqtWDLbweAPp8pjKw/Xa7HoBbbYeKVsIWXg/QovP+/sK1
C3g9gPB5m4TjSTfggNpC37epWbQpVLsw8+4B8Cpt6aYbTCIzFiSpfTQYNG+/
yQk6OIEc73JKXigNAZ4krt7K6jEk4tR0Y40nFG4yhfXmW48i171WB1heh4BW
z21/F7ER9MpMxJ/hQTAQXNIvXW7/hbgkHdzGsf12JMDy6F6xIXRgv4YKjeNH
OMyhF/A0rB/1jxaOv5OKg/cvzUjvJurRO4W7O0fu1oDu164CCZsqFCKa1ESb
XwvNTEZOThKliPl+4IUkmjq8X5M6e9/uGx51eL/m3E2N2e4rDfAu0341ZuAn
AKVlnn+qC+jGmnlN9SrhQHK9t+FYN/CKy2k+C62DT05yq8MHe6A59J6ubGkz
lH5KpfJS6MHrJRim94Yw/tcLfd7SG2clZmDF/obTJdZNUHX+mVfnNAusEnSH
j8ls4fUSv1T+PHmPnV+36yXibg2JTGL5/3a9RDXDbMDhGiUQXHaM0Hk/h7L3
nY8MZtWFI2P8tI05E+jdkbvRTbwhoGT8KV/Bchy5tmtzbR4Mhcj50tvEw2PI
LfQXRZQYAuQVo/oHgQS016yZZ8ffIBA8N5S5ZT+MEk4pSQWyhwCbkNP5X+QB
dNix01Mi4hMUuJnKHRKsRY/J2AOVqwW+s3lhHhXlSG169JzOXC2MNK5ZUj/+
gcwjug2fnarD+1EvLo7y+kvVw+jpogTjL2VQoDy1K/9tN9BIP5O7sKcGWzdx
Un70PXDlJ/dB+kONEGibufLzcA9McbxldvjRComa6suVST3gGSEy9axzBsqF
NarOl2yCubaggLfQHLxYVrl/xm0Lrwd5mz6gofdlC68HsaZNL6rE7ud2PQiz
YOfBkfMKeD0IKUEyVEH2Gl4PcqDnGWNcsD5eD/LDeOT5l1lzKJV/lvOshoRs
dTYcQuJfQb1w3rUUMyIqmB1+ov7XE7KLAg4OnZxGky89SbH6fmB08UELZ+Mk
EtE/2RWgHoTXk7QMxOQMGYfg9SSolEObFVsP2/Uk4cNx43pVISA+zvhuMXgE
MWcqXjUsCoailAIROm0C0teqiOGfD4JSTR+/xxtDKO9XupNNewjeX3vus8el
g9VReH8t06omydEuBe+vHaKURdkNZMOaZTffY98OlBcc/Du2qxhG/0t+VdDb
iuUH92ysT1cA0yGRF6ufGpHxmcR9t/yr8X7cGq836n9savF+XPcwlQqatVq8
H9c7aLZh/lId3o+7kVN43j2oHq+PoSkqCZ2/14T33x7fTJbac70D77/dev7n
+PB/XXj/bcd04em1rG68fuaCVQpdNEMPXj/Dducc/yneHrx+hl95d5LzSA9e
P/NpXi+iZqsPr59xVeVJyUJDeP1M55D7x3/VIyAsm0p+eWYY0vkfDIuPTIPO
7rfkiHsEeLOut1DONQubIkmcaVEjIHOOb5AhnQwuMfqdn1dHwSKPNvKC0Tzw
W7zVTT0/Dg5Zbk8FVBZgt3IRKTF8Aspu7ViWCV0E2U/vJUTnJyHF7bfagOMy
1F5LX7jwnghSjX0BPdbreL0OKWRQRy3wD16vo+DEaau4sInX69jsnPDgCNzC
63VuctvI/y/f3a7X2WlHe723QxGv14kWeOpDm30LhOnH2xK+ziKqo3091C6P
gU10gJWzaRrRvfy9lHTBF7zWLurWOU6hKxVqeRNfAsCA8O6lzFFs/7/3yCz9
XTBe75NZUOZDPRUCZoobbwM9xhDNFaOJUibs/MR+wLtfEpu/1Q4PTa6HQPNO
ruquFQLyMSwg20sEw49dsY11N36hrywGKV7qwbBMCvkqWzCI0ihbn9bqw/B+
aK3PY64Xp+PxfuizbxPLPawy4EMEITFKtB19Gs4ylxkvhdpBjrusQi2o/fl3
DrN9VaDAfabOZbgOUZdp1BkV14DSUF3akmUleph68pFSWy3eT32hImqV+2Ad
3k99OpQjZV9xHd5PrfIl8ReqasD7peeDdr70NO6EMsYeG81pBBkcMiu/T3XD
pFud6ua9KvB60vLv92o3Xv/0PKavWArb/7frnwpC16mt9Hrw+qf7Vp+SDIp7
8fqnRyyaYh6JA9A+NMylukmA3yaeY7KOc/Cq4bzIzbAxMKJLnXrRPg9hhr3S
A6RxcOVpdtT+tQAavYGPEpQmwYudMt1nvQSRRUcupoqQoPlWT9y/0A3gEGW9
NW0xA08sPef1dTfx+qkcntW/DrpbeP2U9PUfDS+St/D6qdT7syWz2P6/XT9l
8fSnJV0Z4PVT6zbv7rd7aoAug+pbms1ZJLTok/EyzgiMDtonCdlNIqFn8yMR
a0Egrn1UK/rEBNJiXQwPywqBTE7Bqy6DY8iHsjX1DTvvuBVVRe3wGkUUesuF
m+9DwNWa7eRDpRE0HDSodN06GD5+pWMz3fqFxLT+/nlIHQz93IxRN+4OIX1l
mywu1o9gHtadzljZj/YQ0sdbcmMhJeJM7Hn5BmTOTF1KJ1kDhuF9xar1VUjq
VN/DXd9qQbeW3NXoUYqKW5Wi43bV4f3qh1R866dt6/B+dTfVDtZC7gY4cf5u
Y6HwT5DPyyjtb+oC4zsvSwKpK6HF2ThQd6AbNkf/i7h9pQ6sqO5XOGH7P9mo
2uDB02aIThB4ZC7Vg9eXRV4Rkem62AuVn8MHVXlnwF73bui1rT/geTyzVsx4
Frwninnphbfw+rLHc0sEg5gtvL6sRVOIHIg9n+36Mqpu4oTqxGVof/N98WjC
HOqauK53JPcO6GfE3bxaP4E0e0cl39CEAP9j6dvXPMaRVUld3vjeUBB+0liT
eGYMlSi8dh3B8nfOQN4HyskEVFdMv2JNGwy/7km94U8cRufPWj16PhUMB/I5
C44fGkRlOwgynSsR0BF3erHKuRYlW4t/7uCvhZO8RZGf2CuQfthEiyaxFtak
mI4l0hSjBGu/+Osn6vB+/OenFrptOevhjPXXDys3yyBrWeOY3otuePztUN+j
nGqAib/uYrQ9wPv84t2V6gaoHTprqHGoB35TFYfu928Frp5vxa3BPWBR4F/n
XjoDXvHHL8ilbsLXDQ6ZBZY5+GrLm/7w5RZeP6f1wDJfA9v/t+vn/rtrRLuF
7f/b9XPEFacHQSUKYH90+CGdExmZyT7WZjlzHdZu6AZlq02gOzQJjax+IdBK
B4K/acdRsrP5a/tjobDTWf/+r5MEdNjoYLXAShA0S6uFDnwZQnWLV+Lyn4aC
+YuRyhd21Wilq+gZBNUC3SNuqzscBUj72IWQVt06ELzU+XvobgVsnsqtV6zF
zgsXPguJJtfCzbRdiiaMPXDmT7hp7o8mkFEd+pQg1AP61apu075tcMHwRm/b
gV74axYyu0N+FuL+kK9fY9wCwcy2xlOBcwCVrtZPw7fwej/XDSxSYvn8dr3f
42aTNjmBSzCs/HHywsoEMpIUP3OiMRhIhlah+t/GkTV7v0benxC4rjX2mVN3
DGkXLw8qU4eCbX10MEMzAbkUUzVNcwSDWuaMgP3GMArebFjpDAgGOsK3+8dE
6tCuW/352cs1IPWvLLGmqgK5bbGqxAzXgiCDkseI8k/UrnqigIajDsIIOU1n
vnxHNi93/52eroPaLZ+HBxJK4WjXouvHW93AH2bBlEVXDez+kX6nqHqgt86b
2MTfAJK6MOTG0gOHmk5EScq0gmvLZnqVbQ/wKVHdLyPOQoRPBLfgc2z/Y1af
vH+OjO37LVW62H64Xb+4j16Mtyl+C69fFG1mdThZcgEs7k6yeG+No9ioy+1T
zSHw4cxBY/qsMUR9oeUMK1conLytZcn5+RfSOuByt4c3GG79aMvh4a5CixKW
kvvKasGj6Ou1e/UIzdwNKqPaUwcppnweylmVkLog9/7eTDdc8Ti8x3myDoif
TzCdZ+qB9PrFWwcPtQDrsXMnApR7oHTEr69ydA5up+ykFGLxdrteMtrVp/zH
yBV4aPL3kPj9ceTiK7u6wRYK+xxzp07vGkPh2RIa0kMhUH43UczlNQF5Sfkm
s60HgSX9m+FOtWH0J/rpjPGNEOC69D3Y3LQcfYt5NHtloRbqDX+VPq4qQsSA
D7+Dz9ZBcnlJDIdBDQjsu0ya3dsDJgx/armeNMI6l/Krh5w9IJ4pwcp7YQ6u
VL8eU/HC5tflfUurb8igXalmfh1bX9v1mmL/18mZR0P5x2+/JCRbKltCIrKW
5ZuEt4qyRBtSkhQtKmlTyVYhSyRmRhSRLKVFkbL1sZuxJ0xkGWbsM5OtrMNz
/8555v6d8/z5+M9xjpn7vt+f931d51yvq17hdhJ2vrh5zaR172RqNE3wvOa/
dZ/2P423wPOaR3oNadntzv+b11SVd39tdhUKWiSdjZtHUH9vyH4zZV8gdk7K
lt4ZRou8PDz9+SHQls5n06A3hHZfuZywYcMTeJCZPNXeNoAU52eyx/6LxfOe
ixv0PJaciXjec+XTyvCFjSQ87/lRSFL7TS0RrHS8HBlJvSh6JFouuJyA+Z+D
bs0uNPStNnLy7kQsGMe324SJdKP0zJScNTlEvM8i9Z2EtevxRLzPYkOb/nMz
sUy8z4KkWM/WTsgBz8Yvb8VTfqLGmJYcr+AimGNnHJ9kNqFTFY0Rj4XL4eUW
0eb66jrU2/K5YtfdKrz/wo16OTP8MhnvvyAJa1VF/CPj/RdJf9dOXQYK3n/h
Zn2pcktQDZ5fVVTlW7XPtB7vu8gq/hR2aefP/+27EPYvvHaoFe+7eOjWc/Vk
Vhuebx3ojNBehelrbr7VrnWB6SNPxfOtktnXCrKoVDzfyle7bvjoQDuebxWg
RDq9fdaF51vlClyOe3zohRmda0XyMt3A6ljBd7RyCL6HpIy+PEKDL9u1f+Ws
ZIKQd2j2r5hekPlbsRCSwIaSumyTSGYf+Ccldms5jYGI66uT37Yx4B6RrzVm
9ziMFQut6I/qh157Fv1P2ATYz9pu3jowAOfe6fLc85iCwiMZB2QeDkN6+LbX
7adn8Tzt8Wnlyo1B83ie9sP+IGX/oQU8T6uF2PZFTzh4nrZO+Ox2UWzeuXna
/pcf1Jb8d+N5WjWx0fEbWkeheThatSmXib45qhxz4bhDb4/UsC51CCl15P0I
4IRDFuMrsSB4ENXm/1t/9/FTCNxXkzytNoB0XJcwg0bA87h1J8xpzr1EyFtY
Aq9oOrqe6acij53/VlbapSXTPmT+eenATzsiMA7di6leoqF6qy3TskYEIEnV
658614Ps12bandxLgGvb+y8413WiTz6B2Tcjn+H9I1Izr856xr/C+0cKjm8t
qZ75ALwzSMNqXzOSyHs0UlJcAjNzG9dGHGlElTILyg5jFVCrKaLkKFiDbgjH
ynPeVQO5pfbD4osKtHtrFiO2noz3l2i1rlshKErB+0uSvEY5Fz5T8P4S2d0T
zw59rMX7SS4/e9Qi59gCIg7VLj3RCMQaly7XKbQBqVheRlSnEtbUqG1eM9WG
55MLtpVMMbB9ys0nN85W1991oOL55IPJqursrF94Ppm1xzMMHv0Gw9Oz0ocm
aMBxIYtVurOgaCYy/r8oOvT4pEu71I5B4JFJw6EeBhiGDF9c1zoOhgf7/eiG
AyBT7rNfzH0SnpRLJAYpj4BBhIxGRPAciCLziqlzo3D5ZvynrIMLeL6ZcKc0
Scyeg+ebvwT/LP6dxsHzzRP9rrMGrzl4vjnqsabWpUDA881WN7uHJNJsYdmf
6S4dPhYqsr8cVa5+Bh7c/lIzFDiAwiTCvhYzYkG5hZ2aqt2Pdt/oqjV7i+2n
Ns1lpwbp6OFc5r9NiiR4HnUycEtMH9oS5tU3RiDCs9Jbf+0P9qKTlYzj4r4E
yO9JQIGraMiIXmKQthQLx9xdnG5c6UL8Rq8m2H0kSDhGMGa0d6DTS38jn99O
Bv23IvPiF2sRfVJ7l5BSNTCif393+FuJQiy1BIQyyKCwWf/B1PsSZBbyQVaP
h4L3wyQTazT1PSl4P4zwV5nctNW1cD3Q8uu+1iIoin+ZqVfaClKxPx6ndZRD
9uWvEseomN8vuPbdRo4CF7Oq+gwwfb1oMU+fNm6AyAx3SbouFc9/0/+aRnzV
+wX5/9XYOEqOgpfx4bidY/OgdPvND3dnJlQYx23xVebg+e+3Jl6JVkkcPP9d
6Lv3+ACmr7n571f5Q0/cb5pBpnWDHN8HFnJobi3o5XUE//U93nyt/Sjvi8qK
7hkCSPbzZdg+YSCdVuGN7fwkuKnYHPBgJx1dLF3VFz9NBB1aoPbObBpSdctw
0RQiQME1N2ZBfjd69CXU93gDAR5zPLz3q3eiu9Wbd1q8S4DTn4RtErPI6E/N
v8dJG8jwTqooKd2sHGV8usZOGyBDECvp3qRDETKije4xVqTg/Tc8Fnc+XRCu
gRaiIq/RllLQsubV1bzaBhJDVzLuhFVB8PP3WTx8VIjaa+c3mlQLupcKBJ9L
UGHphsOvYz5NcDy+K9nhMRXc95caPs0bhUvOT/yKUhbAwmbdHmVBFpjlPW5b
us3B8+3mTIF74tg+5ObbrVa2CW/H9BU3384vzZb/52cCNkOz0axHbFRvl9Av
d80ahhpV6d+O9aOttkeO84YQQarCjNYizkDMgzK5Lti8eq36+/SNHg3l9Afz
9E3GglXAC7vF4i7k2uH3++BuEkx40qsepFShCl7oS3tMhoMcN6FL176hfsaX
ty12FPjlp1Y1plUO9fUR15bK2kBBKt92iz8ZLI9dOa2M6WuT3oYxy+h68Gq4
7m+uSoVK/grP17d/wOp5A+rIil/wojTqr74OE1bJzjk8EuDAv+GdWVKhLFgb
YL6mOI6D5/FpBzNcVTB9yc3jW86syT7bvAcW37esXlrqRys7T52/VUSA3zTT
gbNfGUh3m1zeW2weCKLDLrNudFQqJyafLkCCx1KLp5f9oqHyNM/Wx5i+VK2U
eiok1oNkNqwzMArE9vmfyG9zJyhIUH1LVcFgNRT8K09vHitHtRKvLkz8JkNu
+Y+ubc+K0fuL5dV1khTouTN/fveyHLTBoPSlUhcFPBVWdNjfLgGXVQQRpmUb
tDVX0cq7KiG9iuFtsIjp05TnwhWLNRA0qrx+G6av5U1LugM3N0Gtict1lauY
Po2bdf/bzQRTKtKtP8+BzTZ5FVZb2cAvdj5sI3b9XL6AWhEhKoDpVy5f4Bdz
+JJwkCm4/sp1i+LvR5Hz2ryEaiK0DUsoDBbSUcKpBsQnRwLey/c7Phb1oEVh
8sosCQK0ff6Zp2ZZicx0V/MIFmH+6duGH/bCJSjgt/jyowIUcMy8c/RESAVo
5d9b6T7YBrkn1bRufadAmfh2XmHsffA9W4WaNtoAGiHLWc/2UCFyw8zXT79Y
8HzWPysVm08uzyCz52S/3NF9YDdcd37neQZarm0Rdm8dCez0C1+uFqEj4bTw
l3p0IvzKWLF4LZSGKj4pOeyaj4UDctn7L57tRo6ZWgppOkR4aZhL8nlWhjh7
laJt/5DBQfKydN76QtSm6VPqo0UBB846T039arhSNiH2XRDzM/1CLHGog32U
eYM1MlRo5tGWs9dnQXdOj15sMHZ+/G/+oN9lg2c+oecodr64PMURj8FnnzB9
zeUpQnctCMxYmsD07e3DXxPZKCKMh09v2hLeGh46FK3KQHfGrsprKZCw76s4
b2xFQ0NMz3sO47Ew6zxY82y6CqkbJkxd8iNDl+aEabR8PuK9kNLaaUGBhapO
krgWGeL5K3t1RDH/+d5g+vrOeuhuSdwbtpkK0c6CFyZusKBwqu6AG4EDL62l
bnfks6FNK9jyOTYPxd1dwZ61DESQMNF/zyTClpCpxlwf7HnT96WeESUBjX39
rP6uHrTZ8XWRoDMByvqr3w7tq0Chmpn9/1rI8J/FDb/hR5WwxHuzs3sWO7+H
kH32hxqQF5kMCl+LfZ8DI+VqY43gslFpdsSVCnNGzNvOFCZEeAmeknTBPr8k
5L7Semyfi6e2r8X8L5cncW/1DkrG5pPLkyhuoBxsFTWFC6cVo1/9oKMYxpH2
nZtIUET8/e7XYA9SqdyFlFYToDuFWmD6shINaEL8ys9kiFpt6+2KvcduDu0f
ysbeR92+T7saCA3w8eXw53lDKqg8Id+MqGDB5he3lW4nc3A+xXliZJeOgzn8
N3iR3+weA/F4n/3oi90PRlaVaPVmOhIvmlDYyiYCr1kZyf4FDXmsvxxewEMA
XgtBmZiobvTng5NtwDIipG/9lhDNLkOJj1OozqNkuPwguMYurxCt4tflOalK
gbzrpYJHe6pgVuvQqdMCVMglbNNfYtfCqUNZX1dIUUEoc9O2YnkWiOnnBVP8
OWA3YRZV7M6G5FTFkjPYvHH5GOLrm51UbN64/Vs1zcIZ25ZMINRmp5c0h45u
ii2tFdxMAsJUtep6eRry634RduVfLJTWUanm5V9RpWtNQN1pCtwR8N9aG1QO
6uHdm4Pq20BuvfuIwmA9LCfvz1+uSQUn74tskxcs8Fj1vXX9cw6ciI+tbxtg
A6HplnYk9vy4/M2PwAH6s5i9wBvf9cf4IB2hKoVUweUkOOULZNkKGur/3KeX
vJ4A159//05ndCPR7oc5V1IJ4O0sY5akWwWPj9tlyvFg/nbidiXVthb4QyjO
OuupIHoiwolp2wQ7TieMnvWlQtAEn13kFBP+Gt9a9dCLA2Ht/fzXjNmwZXEH
zzNsvrm8zybnYpl4bJ9weR/Gqo4Q8xlT2HdjdbZ6Oh15bWpK3CxDAts9KgKP
nvagN2IG71doEqCpvPHzuskKlGJA9RCpImN+qC5Pr7MCFJ/0XtzLxvzXe76B
UJEaEDOWUbiI7bOJDJV5KpMFH2ZWvErF9OKNUW2y1lEGWhrUOOsjTQLSlP0t
U4NuZCEQMLL6OqbvrLNj3PaUIef5dAuYJMO/Rxd+8EdUg/+20pIWISqQnI2E
WFYskEwpDGoJ54D86tfrBKPYYNTIt2SGPX8ufyS67YR9BPb8ufwRQ1Dq5fct
Jjh/1CB44MzeAxY4f3TznCLZwNcZ54/GBEx6U8Y8wUDBc3s6dQQ9VbH58Hzg
HvjkxoTU+w0jpadrD2bHhcCgbOnIPsMhlJG4XeL+TBTEOAH/zs4BlOBjk/FH
LRbnl9YZLZpFOxJxfunV53UBdpif5/JLHz1/eN5sIIJD+0uTrtRe1Pjo2ypJ
MgFO3Unw3+FOQ278NxJTMT3ha7T8fYJUN5ITfm57OpWI969l7JBVF9uciPev
1Wawx2V7M/D+tYnCI3GP7+aAmn8aeyjrJ/r1dOqpo3MRhOSpksWmm1DrCdWt
UpwyOKcVEJDfVYfkVAsUsq9U4X1tn/1d7Y9cION9bfLkl/sb/pLxvrY36SoC
6sYUvK8tXsJM8I5vDc5jze8REr6iU4/3s3nKfdWR3fYT72fTcEYhhRateD+b
k+JEtEhmG85r7YzhlH0XpuK8VscB1nSZHBXntaLdVCtLm6k4r2VkcE0soaMd
57Vq+c2/bAnuwnmtPao2BfKveuGUtl3quGg3COu3SJ/5OgQT1Voer2xo0Fj/
zFpjbhTWSc/NeUb2gqCDhHB5NBtO09snAwb7IDhmaCnt2Bg8aP/YZaLOAGVv
s+obxuNwblZfNDisH0ILcxTYDyfgTKZ2gnLvAJiXHu60OjMFetTNc3z+wzD/
5u+M/LFZnA8TybRaWOk3j/Nhb66Xb1mgL+B82OPESePIKA7Oh4UFn1DXwOad
y4e16fEkxNjtxvkwD953ymrMI6B8YvDoQD4Trb3VICFU5A5VX78eMe0cQnlh
pBLm73AoOnFdVzdiEBWtiGt08nsK0bMXchy2DaDbZw+YC1wn4HxZhzr/6vBu
Ipzo4JHtIdJR9I3DZjslSdB3bLxzzb4+tCFzTyn/cSKMTb+9U8LbizzBed4T
sP2fetZD9VoPeitep1ZlTIDsFiGyZ1sn0ikpLfjs+Qzvy2uX/Bd++OYrvC+v
IM9QzqL4A5Skf/RSONyMmlMmMoLeloBYuPxY5blG9H08Wd2qrwJi9P1/7FWo
QW9zcq2s0qohvKlOO+hzBdIeuqRUWEvG+/ZmiC2KuiIUvG+P2vVTNe49Be/b
4xWO/yv1uhbv02MeDwjxO9gCuXegVdkdgelWeuZ/G9qA3WF1/5lsJdjf+5Wb
ONGG83aud3OiC7F9x+XtnNQ/fuIcpeK8ncWOP6zc1F84b0efW4jh3PkNnikh
z46waLBt+ebVJk4sOCn61XZrGB3k9F5/bq4eg6maZUWeHQzw6boIKk3jkB0u
Ev5QfwAYcSXeWc6TIGARa3VNYQSYW4zGm3znIJyve2HOdRTG/iqKH7FawHk9
XuUMttMRDs7r3XjVkxeJ+Xkur7f+7QsJF2w/c3m9jUnuj2VPA87rDd14pLVT
zxaOutiuslzNQsH8XX6DY64Qo2bXtT9kABlctlds7IiFpLVt1ul6/aixmXm5
NI0IL3K3ddYx6WgpYJHjhPmjzJmMcYO4PlRmMXai5BkRUi+k/ba160Uy3UNn
b2F+YUxpoL1fhIZK1RSPVS7EAkngUUHQ7S7042OxaGEDCbbtmORtYHSgVU/i
z9x3TIaFT/6Zi/61qE8vtq9WuhrSH3dCp2AVYp/22otSyfDwkKOjQFkJEujt
c/JbTsH7DN12ebg4eVDwPsPFtvee9Ty1IJVaqhH5pgjuRcS96C1oBa/shUmt
ynJQoHc72re2waZ0nyYLQQr0B967LoHpJ74iovIe1QYIfhM0JqtDxXnGkHrL
3EzNX6DnfybklPgosLTq4z4Nz8MNhS1tS8eY0HuR942+IgfnGTWuSV18lsjB
ecZPa5pExDD9wOUZPdWH3CZ2mUGMdmfunRwWyrBIGCl/dwyiyH5h7h396IKS
1cXVEwSIVmLbHiYwUAxN+9DPlSSQWtbqNG6C6Y0HB8X/zRLB+FH2ep0vNETd
8W9duAjm1xbmFIIrupHm9FqBplIC1CTHtDrqd6JjbysNHjxKAJV8v7nQUjKa
yJNdp7ieDJ7riuU1TpQj6+9f/Q72k8HKol9lQ0ARCpOQif2iQMH7Gg+0Fcqd
4asB1YxuExexUrjs3W0ocakNPFfGi/DcrIJ8/gs2q1dSwVzb+clAeC0Mbffv
McX8/MP3m2d9rzbBbZ+/MdKhVKBFHb8R92kUugrMXiy8WIC4f9H7EC8LnjqU
edh4c3Beszi7pXMS0zdcXtP0t+gaa0zfcHnNPMdv92RcTMCgjl/ldCQbTbnm
ar4Wt4bTomIRhSf70ZqJNy/v3SdCUcr+or1SDCT67Y/tT0xPZ9iavhMxpKFA
lRIFwN6/oYoVOaLkLqRpGz+zQZMEuR6M/QJfq5CG7P2Nx8PIcN0y9PjUi2/o
faXXl7bDFNj23F7TR7ocvshNm50qaQPqirLTmzzIUKmhOMaD+fl9dhd1CD71
IBRdfFVChQp3VJe5P7jyA8b3v3eY5lBh1GP1XKMGE4zeLTml83Kgk89TRvQh
C/xOqtAGSBycL02qTnIyw66fy5fujXSXn87YAyKuN+ROrRxAVK2ph4m5BLBT
UI06V8RAHqkzuap/iWDAGt11wYOOphs3mtoLkiAOae6f7cT0RkJae7cS5t8P
fqxsk+lBJ9UM2q/eJsDJaY77gBcFiUgesDHprQbfiQoVR74KVDzmvuV+Bxl8
5KTCHUuK0fM7MY0fJSjAUyn3pUY9B10lvfTaQ6VA6Xa07q5rCQSkMuwkzNtA
a2x8vw25Eli9oSMmnDZYePxaHo3UgLqe9Cc+zM+n3o1cSpNqAi9vMbtfl6gg
stvb40k7E2L8jnx/6Y69Dz1GdHcrsSGwyJ/Nwc4Ll5edD63S0ML8EpeXfXPz
qtvSOVPokHwh9FSoHz18q7xxpJwIPtXSC/aldMRg2YQuYX7++j9JUZ/qHhTH
lnSrWEuAZx9admSfqkTM7b8GQ/PJcKnfJOPiphJk+aJZwZefAtmVqQV0rwp4
qZ26/2x/G3hY6Jp6vaWAFvk/zl9sP1RtLpMaa20AcvxjFVtTKtw00FDJ/MkC
Y8XiMClsPrl8rqNipXfT6n1Qp5oranSZgUqXNTbvWkuCGfHv93zW0hF545dq
nQEi0G11GR6RNNTrOf7eBtuPBZn7fHU9u9HicH7Whi1EOP3fF8llH8qQMmnF
mSNsMshe/1zZZVyIFN0y10xqUOCDjGlrnnw1RG+0er0F8/NPfqxfElavg8vy
DnHnpamg8C5L8Y82C9Ts1lNoDzmQ/DzTtOMmG+Z0v8Udw/QGlw+mf6vZWojp
ay4f3LD9QiRzjwn0OUGAWiobfSbJ2uY/swRbqaMaS5oM9MLRvCBFngQPz15Z
n3qQhr5ovYnPGcO+//EhaznhanS3NypF9y4Zlvmsj5K2zkf+fb++6uyjQM7n
/kxhGTKwiv67NSRChXMKPw2KN9eDD2lI74QiFdsTJtQhTxZIKNESLWM5MNRr
wTTMZUNsuu/eb9h5+E+uUvNaE6a3B5dc2oeJUHN2OmtzIB01Eewq1qzB/M3d
Vc+WzHuQ+3mys4kdAYJ6yeqeJyuQN/OCstxPTN+6JzGuX68Es7xNnpdmsPO7
i3w+K6EGqhwGFFwxP38OBa281dEIvPatHc9PUcFy4ILvdDkTuiUSh4ZPcuB1
V8GYjBgbfLQ/Nlemc3A+OjT+U0oVNp9cPjp6rv5pVD+AkIny5TVUOhLxyKTd
wPaPmsL13lcTPeidUGKXmQABkhN/7arKrURRGkIBQR/JYD7tEHryBAVoiTa9
8di8DfxRl5cOaID0FIHH+jux8/JugX4fsaCy4gsP8yUH56313EbE0EZz+LDl
8Md9gQy0Jifj4YgwCULDKKP6W+nogp/B4eAxIoiNjvvaptCQzHABSK7E/Glz
su3J+G5EGBto/ztJgAvK+RskeMtRZXfgG9cRMuh01Xr7dhciB2PXIy1bKCAS
zbzWSakC2fCMcTI/5l8Dd+6f66iFtZJXH7+RxPzz4SS9YzIscG4dlZb048Au
0bucnNNs0JDbd+ccNm9c3vviQ1VeOjZv3L7YEwzzlX3dJqChbnQglIeBxoh2
G8wwP1+7c+1eHyUaslagZtT8jQWG1LxSI/sritwTHN7gTIEm5TfRdlfLYd1v
y+m+mjbYErqkfulHPSSGxbxtVqfCnthEZ/04FrQOvHwNCRxI1a7Ys6OXDRHu
PP152H7h8uSJE/3flE/shUxvWu07OzpaH3ru57kVJPDYfPUDdnIQIWT7yIIk
AWjK9pPv/3Sjw6wMu5QEAjT4mGepyFXBz5szG5SXU2FTdyC12bAWig9E6vzC
9l1srKPvGrMm6Iyzrl93lwo/nz90VPnDhP0MfoK9Jwe8/knfPm+A7fuyFW53
sfnm8usSutMbc7B9wuXXBZnTATt+m8LIIZHHCVl0VJB98JzsBhIU1RUbHX7R
gxZFTz68okKAGNSkmyBQiSx3vD4UWU6GQ4emN36vqoDzpk/mG5lt8CRedObh
HAX8JuSlj2D6tr3CyaNhkAVfAirEzDG9yFST9NruyEAoP+edoRQJeAOYbwT3
dqPko1Mehq6YX9j/ae3IsTIUbBMis3eCDLZpsQZPb1UD7yemQxDm5/v58sUe
mbPgo+7G3CdhHOBT/fVwWRgbKJZqXy2w58/l6ZP9jQcI2PMn/XRkdBowUJ/q
2J9QbF+Ps1ZYXTlBQ6ujMy0PjceChfhJVY1X+SjWbBntw24KePMJFB2eqYNG
Z6E+HQUqmOWmf2l1Y8EP2vCV0WhMH4i8bZvPZIMI6dKOCex+istzzi6PoCOj
6at8XutIoBr133KCUw9aWhvkP2FBAFn4Hrvv03ek1Xx5cbkY9v/T8kNXfWwE
MzJt+K8jFQYNzgSr5zNBqe63beUxDs73L/n8bcxPBnhH4F9IVutH1hWDn9nv
iWA3q6b0p5eO+G8d/TP4P/xM2Y4F17NdaJJobN03T4KchgvvjuhQgNW65qgT
dr47+t3KPL+wQEBCB7UmcSApTX7JOpyBmimjw92rSDAiW7hxk3Y54klTd1kY
JMP3mj2mf5Kq4Iypg1QCHxUELHt/JzuwoU7FWHo7dn+5/QL22i8EJbH54fYP
3+HPKzVLMoGbA7t5zwkzEGXQTJqJ6fedFW9um2nTUH+qNSNoKhY8NLKN1GPI
UH//W9N+TM/856n3cSmtHlqEVCNvbqWC3kllzZlWNtx+suGQIHZ/uX0Fjme/
mzYt7IEzKcdNXD8z0E+lhQfZmD4d2z7wMNyFjiKu8Cz+4yNB4LUGH/6fNLTp
044fhnIEmJkrU7b5XY5UBE+2W3SR4cmXmHmyeC10vdK5exw7P0bbHtjbabHh
ifVzFSPs87j9yMt7PJQGsesj9Y6k9X/qQW9EXmvvliXAsggbZtPzCvi+x678
3HAb5BlHEp2WN0Kyncyq9eaYf1sstyjsYsFsk2n9/+iJ+mUtkncf0lD61LFF
1blYiC5SvhLFKkDep8+yA7ZRYLFnmO+1VTVYnX/uZ78a07PHP0sXGrKgy5Em
zveIg/cv7DaPDlpxGNOjZwYs1/ZVoc6YtP2v75OhoLdhkm/qGzJ6NFDTYU0B
898/gyT3kGHfkaO2fqJUeGvaNjN/hwWHJUf9DIkcuO7WqXVpWw+iWQRuoLoT
oFvNQuJ0YiX4SP34YT3fBm2pR8S1ZNjA+UuiuWL7i9vv/M8gy4GuYQoVD+Rz
devoyEfIRnpcgQSae1f1JI+yUUzg6Lm0KHP4nvHAZbc3A+1+3eleJEYC04Zy
XUc5OiqeezdWN0qE2Rcx2SfjaKhw98ZW52UE4GSqbOZdUQdvwgb7nKWo4Nkq
Jl/twYa1W5f4XbB5K3hUK+BW/wd4HZ5aN2Dn+dRHX5FsaRrKfnHmktg05h8D
c8OL4r4iTqDorZqzFJB4VZPZtlAPN9+XvYrWogLvGtVw6Y5uVN/gIm74jgD6
luEHJ2eZ8Cquzz/7OgfvnyhWKYo8un43iJAbtj/pqkBC51ipq8hk2FTG+Rmp
WAOvH61TCcT2mVDEZETvOAvGfk9njmP7bC7LQkHDloFAIl26QIYESR7GHv7J
1bDS6FmEkjAVDNhX09bGsiHbjr5vN3Y93D4L/17vivspOL+Plv3fHy7P///8
/v/99/8DSsWFYg==
    "], {{{}, 
      {RGBColor[0.237736, 0.340215, 0.575113], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1Hecz3UcB/CfrSQ6dHSnnOTO3eFsOuPsprvDqYzUke3ujHMUoTLS0F60
C+1ptLWHCg0NGhRNKqspPd+P/ng+Xq/P+/fw8/18Pt/fpRWXDiypnEgkKrG0
0v+ZVyOR6Elb/SqD5szkI+t68gJu1F+nqj4kZvoVMo1pvG99qazNSBZYN5QT
WK3PlvtlP9lXbqauXszVeoqczIv6IfL1s+Xb1NSHxjPpq/iOLtZt5A28RhXr
Ikbrl/E0++hr1if2xQv8wwCzs2QFK9lFZ7McOSr2wVPspY95bzmEGaxgJ53M
W8tWtCSbLDJpQQbpNOckmnEiTUmjCSdwPL0oopz7+ZaOvr+x7MlgpnMf39DB
Z6mymEt4kt/obZ4nr+R5/uZMs0FyGveyg/ZmKfJ6XqWy9WDO19/jKP1c5utP
8Gs8o3WPuHOe4y/OMBsY+5BTeEuvIc9hqr5IHss47rGeJbfLdvK4OBdZwYf6
ApkU98d11qmyhFfiXY09cJ6+RDaJ7+fd2L+sxQjmWSfL8TyuXyR/iTOU3eP8
ZTmb9DqxX5bol8fzMIlnrS+Wf8rTZWHckSzjTX2+rB7vZuzZuoEcy93617TV
G8UdyGbM4IN4J+UxjOJa65eZGz++OMP4zagbOFIfzlz9MfaQZ90tnpNn+IPT
zApkGXfxFW3MGsprWM9hCuMuY088ym56mHWVi1nH75xqli9LuZMvyTFLliOY
wyP8THfzXDmAEu7gC1rHfcuT471jMrezjVY+ayDrU48kusQ7xCSWs5WWcU5y
OLN5mJ/oZt457oSJLONzss3rymFx3zzEj3Q17xTnxARu4zOyzOvIo6kd7zq1
4tw5gprxDlOdanSMs2E8t/Ipmb6jquzAKYzjFj6hhc+qyKFcyIP8QK55e7mI
tRyMf2vWX47lZraQYRZ/n5fyEv9SEL8p+U48oz6MWfoD8X/o38eZy3ayqZzO
xthj/GZYGHcd7yUTWRP3KQ/I/rKfbCxLeUOfJ6vF30jGWC+U9aNzk/XHpOv/
AUrjqf4=
         "]]]}, {}, 
      {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1HlgzmUcAPDXRrbK0qFboVMp3SpX6b6LdB9SdIfozlGiW7nKxmYopq0D
M5vKsTnWMRS5qVy5CrGxMXy+f3z2PX7P87zH833XsGOXti8kJRKJGvT1ZwCt
aicSrZkuT0tOJPIs2MdDDGMjDRjN/9xGDeveF5ex077D1OPku2nPQP7maFI8
GyFu5Sre5FcW2veVWMV91LJuiLiOE7mBvrGOf6y9S/yYVdTmEroyg2menyre
ynssjfeqd5TYmjf4hd/1ThCv5+2o2aB3iHgxXZjOj3o7OFLeitf5md/01lNL
fhHxZU7jB70FrKOm+kKej3P4Xm8qRRQyhQImk88kJjKftSTbcwHPxblM0NtO
XXlLXuMn5umtIUnelGfjtfhO7xTxFt5lCdv0jhBb8CqllOkdL17HW/HZ4s70
vhB3cSdJ7uQjcWXcOefzDFP51to6nufK9/Ign8ddUZ9R7ODmGDjr+ouL+c++
u8VP+Yu0uE/Ph4tbaM4rzI05sXa8WMm91LRusLiW48iK87iWPiyIM+051Lox
MZvcwYesiPdBBps5j/08TRHf2PeA+FnMBCeT6pxscTs30Y8/+NfasWIF7fiE
P6nDlbzMnJg5644Vr6E382Od3gGayJ+ikK/VWzlcfgUvMTtmTm81+zlX/SRT
yFNvid+d/HJ6MCvmQm8V1Zyj7kwBufFbi++SHEpZyT4ae96JyYxTz2UFezlb
7wnyGav+MuaDMYxmFNmMJItMRjCcDNKZw3KqOMs5jzOJYerZLKOSM/U6MjHm
SL057lHejO6UxGfUW8oezlA/xoS4M/VQhjCYQZSwhN2cbk2H+G0wUF3MYio4
Te/RmOeYSfUmUuWX8SLFzNSrJ7ahF/NiDvTKaSR/JOYn5kB9vziU9ZzESLZx
I++wiI3xXYrltCXZnA0QV5PCpXSL12VGzIXnOfI93MMg1nAMmTGPXM0BelIW
r2Pf7eIHLGdX/J9zTrp8Ew2p5uGYPw4CbM/dsg==
         "]]]}, {}, 
      {RGBColor[0.624866, 0.673302, 0.264296], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl13fYjnUfx/HLFtk7e2bvmRENK6OMyE5CthZCokJkb8qolL2KMkIJyS6h
oiJCIbLantf3eP74HOfn/f7+zmuc1znuu2DX/i36JU0kEkmkXPJEIkOyRKJW
qkSittTVa9peT5FIXE2ZSNwyX6kv0+vpZc2O4MP4E5wKD8LPBtv3Z/0n/ZRZ
NrNZeDrOij/Rt+rT9cZ6A72ffcrEe8gTXBfuDe6E/o1+iE/ndUbjl/FvZh/q
H+j9zW7ZFsWFbO81u8faa/gKvmm+Ql+q19XLmH2FD+HtOCV+Hj8TbN+z+mn9
R7OsZjPxNJwFF8Xb8cd4Gm6k19f72q+a2SX8C/7VLBdehOfj0vhzfae+Qk9q
1hV3xvPs+51+XD9o9qo+Sr/MF7JuA34/jpHZTdsiuKBtHfPf9d/0G2Z5rV2O
l8QxwF/qB/Vt+nP609HtU8m6M/gU/sFshj5Vz6xv07foU/V/bBviB2372K8U
t1we5zpxc7kD+BU8El/CfXFhXADXxnXwVnmWG8ht5TLhKdKAe4DrzZXEy6QL
15Gbw12UPlwhLj9XC38sGbnJUp+/n+/FzZZfpTdfkM/H14zzQJ6SWfKL9DIv
YJ7XvAbeIhm4SfIgfx/fk5spF2JfPj+fh6+ON0t6bqI8wNfje3Az5Lz05PPx
uflqeJOk4ybI/Xxdvjs3Xc5Jj/jd+Lv4qvhJmRbXj3Q3y2OWy6wK3ih3cq/L
ffy9fDduapyzsS+fm8/JV8ZPyBQ5I93M7jLLYVYJV5SuMll+irVxvppnN6+A
H5dJcjrWmeU0y2ZWHn8kabnxUo+vw3fhJsqp2JfPwWfly8V1Kmm4cVKXr813
5krgpdKZ68BN4Pbjl/FLcf3hLjg7zoLL4tr4Y3mGG8BtiM+v/6h/z0/Xp+h3
xHmnb9Zf0/+OawLXsu0U50J8J9fBQu5NrjjerX+mL9E76e31162tYN23+Bje
Z3YnHoVHxPVjvl5fF9/J7IZtNpzZtozZ9Tiv8Xtx/uql7XsYH8Bb8NN6f319
HGv9B/0kn8W6aXgyTh3fWd+kj9Xr6DX1jvapat1FfAFfMFugv6Hfre/Sd+jv
6Ums64jb4fH228ul5UZyL8ax4wriD/DaOEZx79Mzxb3LrIbZVXwZX4vzEi/F
78Z1hg/p+/XNegqzgbgf/iDOCf17/YTZVH2SnkovYt0WvBGPwbX1e/QOcS3r
5/XzcS5ZNx/Pw8Xwu9IBP4bHWfuNflT/gn9JHx7HkO8YxxFnxKXiXoA3yQCu
L/d+3HfjXoQn4pT6aKmFa+D25kXxYmnPtY1zKZ5J0oHLzGXgSuJ1kiLu3VKT
r86348bGe0h7PhOfni+Bi8tjMka+lXbmGc3TxW+H10ryuLfKPXw1vi1XBL8j
7bg23Oj4/vFa8fzm7oxjFL8X3ij9uT7cmnifuG/iCThZXGdSA1fFbcwL47fl
Me5R7lWuvGN/HH+N95iN0Ifpx80KmL2P18RnM7tumx6njWdxPJvifmTNEm5x
3D/xQX2f/pHeT++tr47vEPdg/DpOqo+Sv2Ifrorto3G/5N7Ec3Eh/S1pi1vj
V8yPSZv4O4FLE89JfEW/pF/l39PfifuyfkDfq3+oJ/cZ++JeeJV9jsdvy03k
xnNJ8Gb9I32kXk2vrLe2top1v+Bz+GezN/Q5ekF9p/6pvkhvo7fSX7bP5/hF
PBQfxfm9xjq8Or5n3F/0O/TCcX3jDdKHe4pbGd8znid4HE7EOS9VcSXcKn4X
vFAe5Vpyo7ivpXVc81zqOH54hdyWEXwVviLfEo+UI9KKT8Oniu+Dl8t/8iJf
ma/At8AvyVfSkr+DT8kXwI/Ea8uX0sIstVkKs/x4mfwrw/lKfHn+4XhtORz7
8qn45Hw+vFT+kWF8Rb4c3zyOXdzzpDXXghvOHZKHuZRcMi5v/E54vfTmesY9
nvtbhnIVuLJcM5wPz5eE36QV/wg/jN/NDccv4IO4edzncFKcB/+mX9SvxP1J
fzuewfp+/Yu4D+q99B5xP47nr9f/EZ+McyCe6fpr+l9xHZptwh/iF8z+jOcu
LmPb1PyC/rN+Np6N1s7Ds+N74s/0T/Q39Zb6w/pQ+5Sz7hg+gnfF74qH4SH4
QNxv9FVxDMyu2SbHSWxzx3eLvx2sX8y9xVXCpfA+vCfuo/gpvbv+rvU/6Cf0
r+OeZ914PBb/aTaEK4dL4yY4T1wz0oJrHt83/gaQplwyLsHdhRfLHzKYL8uX
4h/CufE8eYRrxg3h9kkTLil3W3Lhy3Hf1BdZU1Ev6XPtxZ/jdbin/qT+jrXf
69/pR+KebN04PAbfMtuob9AHmf0Rz3hc0rax2Xn9rH7GbK4+Kz67frfX2IG3
47n4dpzruKntYPsd1b/Sd8b1Y+1QPBjvNVujr4zvavZ73Ivwf5LTrLq1l/Vf
+Utx79YX6hX0EmZf4N14bRxL3AN3w2/H9RrPC+41bjR3M/6u09frz5uV1kvo
jeLvKzwHz8S5ost/cf1xTeJYWPMZ9wIeFM9h3DiuIfyv5IjnCF4j3fET1rwV
9wU8Fr+Kb+Dn4rzCxXFDnBPPlmbcQ/G5uD3SKI6h/MNnx4vi7yx5Nn5X7m5r
G8Trxb1WGsbnlb/NsuGFck2eiePEFbO+fuwf17k04P+N549ZVvxgrJVdUj/e
N65Jsyz4AXladsa6eI84L8wy4wXxDIw5V5wr6n3uxznwLGnKNeYGxvGL14r3
lFt8pmT//598tTyJu1o3n7sqA+Oc4opw9+HseKY04RpxA7gdeAh+Hu/Aq/UV
8f7x2eUmzshfjOeovsCsbHxO58QevCuehbib/njcT6w9qX+rH+bTWzcGvxL3
PLMBXDFcGNfDlc3P4TP4dPyO+gw9W6wz+xRvwzPiWMf5jRva9o9nlf6l/mk8
M6wdjJ8LjvszXoWXx3ePYy038P8A5/cahg==
         "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
      TagBox[
       {RGBColor[0.237736, 0.340215, 0.575113], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl1XV4lWUYB+ANRseoDZAYo2MDaVBAOhRBpgKborSCAoIYKEqN7hIEJOzE
oAQxCBUDDMIEk7BbJBTu5/KP+/ye5zk753zf+77ftfSBo7JGJiYkJMz1ElnL
y0F5H0PVZZjGUH0fmY+JvKEfJSvRWd1F/iXvkZvlTbI8M+Lz+v6yOO+px8qq
NFZfJE/Iu+QTchzXqAvxtjqbK9T/yVeZTx5qmx2Sy7ghfp+uZn/LLUynCReb
fSefjN8gh7zUMf9ILufG+CxNSaKu9z6W9zOMbjQjH/kpQEEKUZgiFKUYxUmm
nu/4RK5gOJfSnFbm38unuDvulRJkmH8qV8bacRktaG3+g3ya8VxLSTLNP5Or
uJnutKQUpSlDCvX93efyAUZweaw5qTTw3mG5mpH0iPWijfmP8pnYT/pRlgvN
j8g1sff0jLUxOylfZEbcH5eY/STXcy/X0cvsnHyNBZSjodkXci23xD7HOpn9
I7cyM+6ftmY/y2eZEGugL8w76uvJioPLBHYoFzJIXZJcPtTfLqszJ86lvpH8
Uq6L86NOYbS6r8zPJN6M65KV6RV7Ik/FPcltse7yAmYySz9AJvO++jZZjTbq
dvKX2G/5XJwpWTaeo1hbWYTJvKsfI6vE99Fff2U8l+yMPZIVWaQeLEsxlf36
O2SNuB51Y/mVHCcfjPMtU5nOGH22LMAe9WiZRlacIXlavsTs2Efam/0qn2dS
7KW+KHvjfrlKnYdd6sVUoIn+a/kQt8Y9xLkzOyO3Myf2lA5mv8kXmMxAKtLU
/Bv5MGPjN2INqUQz730rH4k15uq4RiqTRhXSqUo1qlODmtSiNnWoSz0yyKR+
PA809/1H5aNxZugd10lH89/lBqbE+YrngRbmx+RjsQf0oYfZWfkyc+OzdDL7
Q24kN/Yvrt0sL7vVS+J5oKX+uHycO8nRF+StOJv0VP8rX2GEugLzYu1kCT6I
36Kz+k85Xm6Sw2W5OC/xzMhiTGFf7JFMZzZD4p5lEq+rlzJEXZoDcU2yZuL/
/y8a6c8DuMupaw==
         "]]},
       Annotation[#, "Charting`Private`Tag$105712#1"]& ], 
      TagBox[
       {RGBColor[0.72987, 0.239399, 0.230961], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV1HfgV2MUB+Bv/UhJhUISKrJXoWQnosgoZI/IKMrITqRCRtp776Vhz4ZN
ZVQiTSVCQ4OUSs/nj6dzznvfe7v3Pef7q9qsdeNWxQqFQnv/dOHV4oXCjeyg
Kr/TjxJFhcJm13+Sv8ClzFfPEZ/kf+qylkFUYAXduZp/GctenjPDfTPl93Mq
JVlKF4pcbyz+zShW2ztf7MhFrGcIB7GKXlzLK/ZNEm+iWu5Xf8/X8nacx37M
tPaR+AC1KJVvtNaVyfKbOYx/1Auyl25MsXYLh7NF/QMf050e9KQXvZlqz61U
z3erf+ST7Fc/SG325A9rfXhN3owj2KpeyKf05XVrt3Ek23L+fEY/+jOAgQxi
MEMYyjCGM4KRjGI0b3jO7RzFf+pFfM4Y3rTWnKPZrl7MF4xlHOOZwFuu38Ex
mRP1Er7MN6rbcBql+dPaRN6W38mx7FQv5at8o/oh6mQuWJP54x35XRyXuVIv
4xv5U9Rjf2blHMSHOZ0yLMsc0CT9Y3TmMXMgdqIBfzE0fTdnlcVf6c11TLL3
XfHuvCfHp0f0p8AiXuQyNjEiffSc5e77Vv4057OOwRzASnqwm31N01/GMTvn
Lj7CGTkrBrCHfWXF5XTlyjwvsyg+m/dwvaG4gWEczG/04fr0lAk5D/smu+89
eQtOoBiLeYnirl8ubmYkP9v7ndieC6jInPRffJQzKcf6zL74HBdzCFOsvS+2
5MQ8mxX57WUu5I9xFnvn/PP74AP5PZxEUc4pPc5vITOfOc08ZtYyP5mJ9Cbf
k/+LD91zLzVytvySHuS5TFO3oia7syrflpmTP87Z7JMzzHOYLm/NyZTITFib
Kz5DfQ5krrVZ4hOcw75szG9bfJ5LOJRp1maI93FK+skSXuaK9Mr1eWIHLqRS
3p2eeVc9uUbcxnjm2TtbbMu5rGEgJe0rn57RjavYwhhKu7Ypf0PkndNzdaO8
K8Opwmr6cgPbmUhZ+6a7bxdvk90j
         "]]},
       Annotation[#, "Charting`Private`Tag$105712#2"]& ], 
      TagBox[
       {RGBColor[0.624866, 0.673302, 0.264296], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl2Hf4VvMfx/G7vffeO+2p0k4bJaVBqbTR3lEhaSDtRRulRRkV2ikrTYRK
aKE9lFH4Pd7X74/XdV7P5/tzvu773Od8Tpci3Qe2GZAkkUiUT55IZEqWSNxI
kUj8qTeUNSkTibdxwVSJxC6z4XgUTh1sfhh/gweaNdfv0/9xnGO23XEXLmlt
DjwHz8cn9dP6L/qdZnc7txguiQeZXcHP40k4o/kh7ij+AS8y66b31N/mP9E/
10tZVwEvwa/hC3pma2/qf+mNZK3ZOvwxP0J/Mjo/CN+DW+C5OGd8d644dwc3
GF/Fi6U714tbx1WULNwf+G+9sezGg+Ve61ry87hc8d/nSnCluCH4Gl4iWeVP
7hbXRPbgIdJYsslfZrf5pvFd8VBpItnl77jWfDP5FA+TplLSf6e02VD+Ol4q
OeQW9y/XXD6L31KayR3WlzEbxv+Ol0lOuc39x90jn8c1k/usvZ+fz+WOv8WV
4spyw/ENPAFPxofxa7gH7o3X40pxPbh/cELuxV/gkdY8hXfjkbgFbhWf1/EV
Lo/Mjc6dis9kTWlcDo/AG/QP9Jv8RP0FPZN74iuz17meXB8uGfdOXC/8BS6N
K+Ol+HV8UT+vX9LvMsvt3H/1JHIt7m/ztxzX471mo/TRehpr95h9hY/gUWYt
9QfiGjq+arbD8WN8h7V58bzw+LR+Rv81rofzyujl4xl0HGm20fFD/IfZJP1F
PbO/8bXZMXwCv2HWS39Mfzd+X32vXsa6KngZfgNfimtp7X96UmmBv8RPyv3W
tOYWcPnkPq4sVyG+D/4TL5e8kuCT8S35ffgpacW14RZy+aUFV46ryD2J/8KT
8Us4i8/1DXcc/4hXmPXWH9ffi/tN/1Iva13VuI/wcpwXX47PZ30SLjl3Pe5J
7m3Hd/D++D76GD2t9Z+YfY2/xRXxaPMH8IOxn5jt1HfrBfT5+gI9p3Vn8Fn8
W3xP55TXK8V+Eveq2SbHj3Axa/82fwFPwUfMftB/0quYvWnWBz+B34/7Xd8X
e1/cm/oK/Yp+Qb+s57c+qZ5Cb8UfiOuLx+JP8RjcGreNZ8jfX8wVlPv5Cnxl
fjS+hVfKY1xfbgNXTQpwybiU3AP4IB4rbbh23BKukLTiKnJVuDH4Nl4lBSU5
n4pvzR/CT8c1lUp8VX4s/w9eLYUkBZ+abxPvDPxMfAcpLCnN0pg9GM8PfjY+
i1Tm7+Sf5v/Fa6SIpOLT8m3jd8Xj5EGpwlfjn+H/w2ulqKTm0/Ht+G/wc7Ge
a88t5QpLW64qV517FifkRfwy/jaeefPHcT+8EVeXYlwaLj3XHq/T39UL+U2O
mI3GT+PPzMbjtrgDXoZ36Xv0Ivor+kL9rP6Lfk6v5m+0c86duAYeZ/aBvjn2
Iv0lfaqe1brv4t639gmuP5ec28TtxftxDf0N/U39qn5Rv6IXd05aPYPegf82
3rvSjnuIe40rKq/iRfgXvb15NXxXvPMcn+OSyhR9Gvd9XAdr+uIB+IPYX/QD
sZ/qy/WVej6f8RouYW06LiP3e/x3ufWO7+HC8d3Mx+Bn8Ofx++nf6ZXMJpi1
xw/j1+P3kA5cda4mNx4nk5fxdHw0/rZ5PzwQf4hrSkkuPZeJexh/H+8Q6cB1
jL2VKy4PcTW4WtzzOLm8E+9PycBn5jtyR2Oflofj3RjvKclonsW8U+zZsQ9K
R7mLr81P4FPIu7H/SyY+K/9I7JGxt8hDXCdueVw36cTV5OpwE3FKmYpn4GP6
e+b98SD8Ea4lZbnMXDauc+xT8ezjZ/EX+Ij+vf5ifH79kdib4xrJArwY53Lt
f8W/4vPxGa2tpdfVJ/Ef6lvi/rIuFZ6GZ+Lj+gn959gHnTNAH6ynsG5zvEfw
QVxbX6Gvir3Q7Dq+hK/imricc7Pg7LhL/Ab6+/EsmZ2IvQiPw+nw3nhW4lpz
nePZif2Y+xh/Eu9ifaG+RP9N/02/oFe3rrPzauN6eLLZR/pWPbU+XZ+lZ7Pu
B/wjPhl7rHMG6kP0Lfx+/ZBezro6+E28Ou51vby1WXEOfMOxa/z+jhvwj7FH
xvOlp3ful/F84qO4Mp5i3gl3wSvNduuf6qX0RfpSPbd153AXa+tw9blbji9w
mx234TT6DH22fkL/ST8Ve5xzBulD9a18XanAZeNyco/G2tir8Xi8L54z/Eh8
D7wKl5auXF2uQdxTOG28N+O9Itn5XHw37mc8VR6Vevzd/Et8utj34r0iOfjc
fHfuJJ4m3eI9ITnN8pj1MDuFp0v3eCfEvi65zPOa9zQ/jWdIj9hfJbdZPrNe
ZmfwTOkp9fmG/BQ+fdzXsfdJHj4/3zv+fYBnSa/YdySvWQGzPrGX49nSWxrw
jfiX+QxxL8VeIvn4gvxj8TzhOdJH7uYb81P5jPF7xV4h+flC/ONxr+K58X6X
hnwTfhqfSbbE3iAF+ML8E9w5PC/eY/G8xr0tBc2LmPc1P4/nx3tEGvFN+el8
Ztka95AU4ovy/bgL+BXpzD3KrebKSF+uMdeMm4GzyDZuMDeM24brxT3FFeaK
cf3jvRTvcvw83h/vHdwFd8NrYu+SflwTrjl3O/aV+K6O2+NdqM/U58TzE/eU
flqv6jnY7rwheDjebnZAP6zX11fqa/QC1t3Al/E1XM85RfTi+s14n8We6rgR
F7X2UvxbAk/AB8y+04/pC/iuenc9qXVrzfbgz2If0Bfry/Q8Zufjd8EX4z2N
+zu3Kb4Hz4rrru/QS5hlw7PwXJwd/xTPAT6DdzhvqD5CT2m2w+wg/gqXxw3w
Krw2vot+Rb+u1zKrH/9OwiXwH/FuNH/fcRO+bDZen6hnsPZgvB/xcbwwnle9
h/5W8v///4MBXDPuXm52/O76zvi8+mx9np7D3/k5nlN8Fu90zjB9pJ7KbKfZ
Ifw1rhD/fwCvxm/F59Ov6r/HeyK+l3P/ByJ4Gfs=
         "]]},
       Annotation[#, "Charting`Private`Tag$105712#3"]& ]}}], {{{}, {
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.04, 0.12385413576768851`}], 
           Offset[{0, 0}, {1.0808321811029733`, 0.1263506790766082}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0808321811029733`, 
            0.1263506790766082}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.1263506790766082}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.1263506790766082}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.04, 0.12385413576768851`}], 
           Offset[{0, 0}, {1.0808321811029733`, 0.1263506790766082}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0808321811029733`, 
            0.1263506790766082}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.1263506790766082}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.1263506790766082}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{431., 11.500000000000096`}, {1.0808321811029733`, 
            0.1263506790766082}], 
           Offset[{431., -11.499999999999904`}, {1.0808321811029733`, 
            0.1263506790766082}], 
           Offset[{10., -11.499999999999996`}, {1.0808321811029733`, 
            0.1263506790766082}], 
           Offset[{10., 11.500000000000004`}, {1.0808321811029733`, 
            0.1263506790766082}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          
          RotationBox["\<\"randomly chosen ASVs between different \
microcosms\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{220.5, 4.8960835385969403*^-14}, \
{1.0808321811029733, 0.1263506790766082}], {0, 0}]}], GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.04, 0.502225193586291}], 
           Offset[{0, 0}, {1.0808321811029733`, 0.5022380060089059}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0808321811029733`, 
            0.5022380060089059}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.5022380060089059}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.5022380060089059}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.04, 0.502225193586291}], 
           Offset[{0, 0}, {1.0808321811029733`, 0.5022380060089059}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0808321811029733`, 
            0.5022380060089059}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.5022380060089059}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            0.5022380060089059}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{332., 9.500000000000073}, {1.0808321811029733`, 
            0.5022380060089059}], 
           Offset[{332., -9.499999999999927}, {1.0808321811029733`, 
            0.5022380060089059}], 
           Offset[{10., -9.499999999999998}, {1.0808321811029733`, 
            0.5022380060089059}], 
           Offset[{10., 9.500000000000002}, {1.0808321811029733`, 
            0.5022380060089059}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"same ASV between different microcosms\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{171., 3.7969627442180354*^-14}, \
{1.0808321811029733, 0.5022380060089059}], {0, 0}]}], GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 1.8519212736802575`}], 
           Offset[{0, 0}, {1., 1.8519212736802575`}], 
           Offset[{0., 0.}, {1.02, 1.8519212736802575`}], 
           Offset[{0., 0.}, {1.02, 1.8519212736802575`}], 
           Offset[{0., 0.}, {1.04, 1.8519212736802575`}], 
           Offset[{0, 0}, {1.0808321811029733`, 1.851612036355628}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0808321811029733`, 
            1.851612036355628}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            1.851612036355628}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            1.851612036355628}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 1.8519212736802575`}], 
           Offset[{0, 0}, {1., 1.8519212736802575`}], 
           Offset[{0., 0.}, {1.02, 1.8519212736802575`}], 
           Offset[{0., 0.}, {1.02, 1.8519212736802575`}], 
           Offset[{0., 0.}, {1.04, 1.8519212736802575`}], 
           Offset[{0, 0}, {1.0808321811029733`, 1.851612036355628}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0808321811029733`, 
            1.851612036355628}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            1.851612036355628}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0808321811029733`, 
            1.851612036355628}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{252., 11.500000000000055`}, {1.0808321811029733`, 
            1.851612036355628}], 
           Offset[{252., -11.499999999999945`}, {1.0808321811029733`, 
            1.851612036355628}], 
           Offset[{10., -11.499999999999998`}, {1.0808321811029733`, 
            1.851612036355628}], 
           Offset[{10., 11.500000000000002`}, {1.0808321811029733`, 
            1.851612036355628}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"same ASV between repetitions\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{131., 2.90878432451791*^-14}, \
{1.0808321811029733, 1.851612036355628}], {0, 0}]}]}}, {}}},
  AspectRatio->0.8333333333333334,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
   FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
    "Europa-Light", FontSize -> 18},
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox["\"pdf\"", TraditionalForm], None}, {
     FormBox["\"Pearson's \[Rho]\"", TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[Medium]],
  FrameTicks->{{{{0, 
       FormBox["0", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 2], 0.5], 
       FormBox["0.5`", TraditionalForm], {0, 0.02}}, {1, 
       FormBox["1", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[3, 2], 1.5], 
       FormBox["1.5`", TraditionalForm], {0, 0.02}}}, {}}, {{{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[-1, 2], -0.5], 
       FormBox[
        RowBox[{"-", "0.5`"}], TraditionalForm], {0, 0.02}}, {0, 
       FormBox["0", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 2], 0.5], 
       FormBox["0.5`", TraditionalForm], {0, 0.02}}, {1, 
       FormBox["1", TraditionalForm], {0, 0.02}}}, {}}},
  FrameTicksStyle->GrayLevel[0],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 449.5497925985352}, {All, All}},
  ImageSize->{Automatic, 250},
  LabelStyle->{
    GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotRange->{{-1, 1}, {0, 2}},
  PlotRangeClipping->False,
  PlotRangePadding->{{None, None}, {None, None}},
  Ticks->{Automatic, Automatic},
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{
  3.7811815594616632`*^9, {3.7811821581112003`*^9, 3.7811822211751966`*^9}, 
   3.781182252747161*^9, {3.7811822956256533`*^9, 3.781182353742758*^9}, {
   3.7811824535081787`*^9, 3.7811824788887467`*^9}, 3.7811825091421204`*^9, {
   3.7811835237252097`*^9, 3.7811835660092363`*^9}, 3.781366262779275*^9, {
   3.781437324058997*^9, 3.781437346448844*^9}, {3.7822500206498137`*^9, 
   3.78225004067797*^9}, {3.7830885651189203`*^9, 3.7830885892635145`*^9}, 
   3.7830886709769216`*^9, {3.7830887122923565`*^9, 3.7830887316150107`*^9}, 
   3.7830887764841075`*^9, 3.785272940756795*^9, {3.7852734734114485`*^9, 
   3.785273493047154*^9}, 3.7852735695268965`*^9, {3.7852736050854564`*^9, 
   3.7852736518505816`*^9}, {3.7852756954467587`*^9, 3.785275719769088*^9}, 
   3.7857014328514614`*^9, 3.790362080557768*^9, {3.790446259351901*^9, 
   3.790446277298975*^9}, 3.7904464111058297`*^9, 3.7905435857028313`*^9, 
   3.7906278005783267`*^9},
 CellLabel->
  "Out[615]=",ExpressionUUID->"09118ee3-9abf-4af9-9684-b80e1898e558"],

Cell[BoxData["\<\"F:\\\\Dropbox\\\\Postdoc\\\\Data\\\\Leos pitcher plant data\
\\\\final notebook\\\\Fig. 3d.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.7811815594616632`*^9, {3.7811821581112003`*^9, 3.7811822211751966`*^9}, 
   3.781182252747161*^9, {3.7811822956256533`*^9, 3.781182353742758*^9}, {
   3.7811824535081787`*^9, 3.7811824788887467`*^9}, 3.7811825091421204`*^9, {
   3.7811835237252097`*^9, 3.7811835660092363`*^9}, 3.781366262779275*^9, {
   3.781437324058997*^9, 3.781437346448844*^9}, {3.7822500206498137`*^9, 
   3.78225004067797*^9}, {3.7830885651189203`*^9, 3.7830885892635145`*^9}, 
   3.7830886709769216`*^9, {3.7830887122923565`*^9, 3.7830887316150107`*^9}, 
   3.7830887764841075`*^9, 3.785272940756795*^9, {3.7852734734114485`*^9, 
   3.785273493047154*^9}, 3.7852735695268965`*^9, {3.7852736050854564`*^9, 
   3.7852736518505816`*^9}, {3.7852756954467587`*^9, 3.785275719769088*^9}, 
   3.7857014328514614`*^9, 3.790362080557768*^9, {3.790446259351901*^9, 
   3.790446277298975*^9}, 3.7904464111058297`*^9, 3.7905435857028313`*^9, 
   3.790627800884532*^9},
 CellLabel->
  "Out[616]=",ExpressionUUID->"fe13714e-43bc-4cab-9e73-1ccacbc0aa13"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxE3Hk81N/3OHBtQqXesiRSpEgqZC+dtBFZi4qSpUUqlUQqWUNkX7KvRSH7
Xlz7vu+7sZvBjCWM1t/r83j83O9fPTyGmft63dc999x5nhO/8WPtO+sZGBjk
WRkY/vfvUeCk/PtHQ9XBi9xJt3PBusn50b0iKmJYrinX486H9vYtlBKjWfRa
UXjuzZMi2FP8mF2GdwYFO7pyNi2XQvaD8k3bByhIar5mxES/Cgzfi8/1OJLR
5nUldbKe9UD3e+WGYAq1ZnFIX25rhjjWQe7g4QnEJ82rb1vQBuEq4hZt78bR
GIdZTmpmJzg+NHpx6OIYkkyQ2vjUtgdebUi0tpgdQU6Xq5z9bveDkX2TYOfn
YTR0aFKt5McgBBaOB4ebkZByael0czYJCoaEtyYLDKKpZvWGULYR2L/j9Jkr
kX0oME0laUB3FDJE3MxGRrtR9t6xifiAMRiqSN8nLd2JCnJ0+Ds9x2FcNFAC
5bSh04IJ7HmKE/Dfmy/SR9e1oOnAj3Xv5iZAVJom+mmxHm0WzPl9J24SnM7N
Nue/qEInhdrCwm2ngONKis91rlIUGPF4fJ8WGTKWK7ZXCxYg5sfCu08tkuFT
37gn2TkF0awcQ3tMKXBTizerzyQA/ew4N6URSYF8llcdpc/9wWHnzeaHURSQ
GlnH53AtFSK/Xp/9Z0iB/XPfVuVL88G7W9LWgkSGi3E9DerXSqF3qOIjnYkM
59XYNixlV0H+MWlzkX+T4H2ry14stx7abfruvFmdgCr1Pds02VrgRdMX12zq
OMzyc7xpDW0Dp7xrUqKs4/Dc8rCRN2cnrFTuKhlRGIOu/h3ad6u7gXrpy+Tv
y6NgaHNycvOlPmjKubSx0GQEyg7LuJdtGoQYl/c1dueH4SDz96mPyiR48Cyn
u/QwCfZ8f3B+k9sw7IhiprMeHQSGn+u/WIyMgEoQh2PmRB+saBUaVBwYgzGV
q+s3d/RAn+QtngPO48AUlfxV8UMXPLm64z+B/gngE3i0JH25A7gDxq5t3DMF
9vxLX3/wtUGKfnTC4gsy/Gh7mJkd2wxXFeyUqwspEG1/2XXFvR7SDR4JyP+e
Bv42Fl3ZbdVAZzm7IV9nFkyENCW3NZWBdssJ6T3BVGA/HvT2xsYS+P/rATzz
goMmsxBouzYkHb9FQ2Nx55uzW3PhoHZ1EvsOKvrwrYEscOMbvKhVsPtdNIP2
31wRkqUXA5lj97a419NI41jwNoNdFWC257Yuj2Iv0rEfLLH9PQrK9PDzWz27
0LNnKDyTexyMbeK+vFxuR5RDvWMvZ8bhUn1DGnN1OerSuvhLgTIF5hq+wYWH
EBJicLlDSiDDGYsbDyIzs9ANdo4be6UpILL+Z+YD/Y+oLLayms2dAvbtwu08
ZQoo15se/uQTBWoyb51Lf/cRNh8Neir/jgJRTwzKFXKzIGlQSCDuEAX0wnJV
HsohGJjYv7PElgxK9OdT/JsrQKhm5txbtylol+z2W/08AxnupQP2TRVwwBzx
Ti/PQjZb2laWE6VwmumQD+slGvzkTfbUPFgMp0fna0NSaeh+vxv5r0MuNPrE
bz11j4qSNcz3PuItgPimj5K3dsyi2DPH0O4dxbBhunzHo/ppJLbb/Mnz9eVQ
yaldn0vrRRAwuoE7aRRsfdmuWct2o4MPDZ/a9YxBdJTInWtBHWgwRYjXqWgc
TN0Gio32VSKf+ldZF7OmYML21VHezmL00mbUrpO4npeSvgrHH+aiPOlesh0n
BaaotGiRJ18Qq7hqk+ArCqT+eLh/qtcZCR9wDTSIo8BBuT2pfuci4eCcflpk
EAUG0lIPIfEM6DhYbWqsRIGiCrnYNtvv8FoMtuWmk6G6QUg/L7UM1ik2BO+s
nYLSmtjeEO0ZeKplZFI4WQleJ9ft0I6fhTOlxv78v0qh5qHEKMcCFWRuGB04
7FQMtw9/ed/ASkO9+6aS/ujlge1Oisp03iwaYv4VXNTwHVgFrUhv/HrQNm6d
7mSVMWC/JXQ8ZrgTGYSd7GjSGYcdcYfbzyR8R0a+v/QPN5GBJU0ohPlXOuK7
I6GgokWBbhEmr+uekchVU3VkOpAC9+6J3M356wh5c1kXRD5S4F+tmDj3/BdI
cbWmP7OmgJHYtlvfT+aCGv1KwK3NFJiI2qZ6/d8MKG9a4ZWsKIfvUbaHnJWo
8GNsxmFdQAnkxu1V2BxPg5A0MYtFYtpk/nPure+iobAUlVnZB7kgkMZR2OpH
Rct64ye8/PNBQfua9w65WfSdnf1I4RkEPjqhbNo/plF+XJCuyqsysNx5cTOj
Uh9SmrOYVXAYhV0GasOiXt3IQWGLVVDuGBRLUM8oTXSgr9tKKwLjx8Hq7ni1
Z30liuI249wcMgV/pwKGCqxKUFBXn3X2PTIEBSbF21bnIfWXOeOPNlHgwrgZ
l/vPJDRz+JaDpgUFsupaKzRavFDLn3WcV2IoMMd/qVRkIBiSJdVP+YdR4Lfm
tf5/1DQYr/9PvOYK8XrvT7XN+76B1eqJP4U1ZHDLsw/YsLEM2KWZKtcT61We
3e3vfaEZeOlWvHrZpgrK9se+2/RmFu5JVNoXG5UB697c99wVVNjoVRbDWFwM
+tdPhDPI0JBHsE7a4n950Cpx/Zfd2CyyFw8WmNj6Hb7ve8TTQO5BOywFy5f3
j0HKYePvujJdyJ6Xn/OF7DiAjYG0/VQhaiBpiy1+I8PB/86sv3I1Eyn4q2/f
f44CdVvsFLa2xCDjLWkS930oULbvnWvEDgtQyTjgyk3Eh9tQLX9HIQGWdUyP
CDgQ8aM5+78/q9lwObn10vQuYn+iLJgfap+BxjO+R3yUK2DOhS9OZi8VXF1/
HV8aK4HfOh8nWGxo4Pjt0DXDTcVwMfvWt7uuNPScdomnIzYXXj6VufHlBBUl
WfnOBeQUgEGbVfvU9hzUaL5X+9tBCryjW4rUjcejFC+9uj1OFLh8gnX9uprn
6JbVefNO4vk8Kryi9qcjBuxP5u80IcZftGOz9RvLTLB6dfGbiBwRv3QMgyIb
Z8GuNEqAN6QUnAu+yrHtpcEY91u/KxrFYP6H0zZ0gorEhEvSODLzgKq+TQxF
pqET+yLlwm5SYPcptpjQFyFow48+o4ehFHh4yoeJb+k9DF+cUzsTS4FQ3RCh
ho/JUG+Z0F/wkAKuef2pzY+poKOq8yJAqQQs5kP9N7TRwD/rtvNsFQIJYTXj
iWkaytgftWHhXi7UgxpHxGcqcubR54y8nA9uOzNO3lebRXsPR7JG9hRBJ8tb
/3NMM4ixTvXaNdkyqPctF/xq0YfcR5jsjjwchTvllE+b87vRov9Rdr34MdD8
3ZR+irUTSY54LEqFjsNrHXJ9nEAVMo/m69HymAL3SH5ZlqoSxHM6r8/hBhkE
K2X7Yq3yUbIl7Z/ObzJYGX5uzYevaNmhxTnzEQXC+xzrFCd80cT9/f9aiHzj
StBondWhIMg5RjdLiaDAlphkqWi1NDhTKOU9pkcB9zt9+/mfFsAXB75ljQ4y
TB05In4opRRWWO5l265OgVX+yx2t/83AR8aEVtfSKjD4YHFh6P4sTCXa2nEE
l4HYCxujsBQqsAZWafYPFYPuk42Cu1VpqE52bEs/LRdel/pcVvk5i04euMuQ
kfkNdkZNyVpy9KKa4qtxbjvG4JfvP3tx4y604zGv7r5D46A7Zj3J964IvbpX
ksqaQYYsxSZpm01ZqKEtXYpfgQI/Xb7TT3DGIQ2jqqEnnhR45X+h9oGkIRgt
2c6ZEc9/0Ko/eIx+AvH0/TPH31LAZx/Lg4hr2fB3LuKKCz8Fgr3H7X2LZiDQ
wDGF7l4B7j+pt/7bQoW9DTrR/7aXAl/q3W/vjWkgp/iCl8pWDOfqhc/ahxHx
XD5F6aN3Lgiue5z1TIuKPDJ/PbtpWgAzGzYysxblII1i7tOTfBTIe5Yx/lPk
Mxoc0lbjt6PANTbLj6bIDqluGBBUIp5/w5FS7f2vo6GGpW41yp8CjYb6zXxt
GXBEu1jH8jQFflSLXX5RMAuacSOVT6pLIX7nE9YAJhqwnljsg/vFcJ+dtDHr
JxW9/Xglhdk1D17bhd4eu5SOvjUwTIdcpYCNpCfXz/XhiPP9/u4LwRSgaN+U
oay6glqEtoo0sR/W77gjuqiSBHHbr+67T8RLAdGvDxP1qcAStGHe41EJBKjc
NH37nQZBGSqvnrQgOPmzQDuzjIZWbE08rlvmggQp6gdP5zvEqCTOaEWsJ4+v
WXmDPmFwn01nZVcIBWYqfuR+6KMS84QWxKKLwfCMBfukAA2p0CuvbJHMg3Af
Rcd+j2i09NXWXYS4/uoV6qFNm1/D8ccNe6qJ+yPx9rcUfPgMrVQam+prCvT+
Hv7vnTcNgh/kCH2iIVCPDDqu9oyGki/WPK8oyIWwak0k8eke2rIh6u1+Yv6N
jaZv+0gR+UvSGMc++WL4rvRB5AQ1CM3rB0z7hlOAHjA8I0z3gZJoJ1UmYn/Q
DO4uciDTwCfnjadZEYK0TPGDi0s0pGBQ46V+NxdiN99XdMykohI3v0evpfPh
6A8D/8Crs0hN2sSO9VMRvLzzs02BbQY1xN/P9ecqA7qmY6a9Wx+SY7ja+sFo
FN5byzE9b+xGbdff2dpHjMGu4dP35QU6kXX9ExbGgHFgUJtuTFGrQh2jL+St
nadAc/XemDitBN20jN82pUuGBwZ2z7Mb8lHf/JZttStkYOVTStMa+Yp+Jbsz
3nlAgddBTYj1gD+a25u1uINY7y6aqc3hTQEQFpMY4UmcPw76fS0nrabCk2yl
UwtEfOxMrGNN4S4A3q9f5IZ7yRBs6vTvhFMp3H/OeeTEOjKwb7XkZtw8Ax7f
drzImKyCwy29gvW3ZuEgeeK6b2YZlHzsVb0RRwWz14HSofPF0P5ravKgDg1N
uyXJNQ/mgpZ7st2xTVRkNsf9nOL6DU4ZxFcpHe5Fjy6tK3BiHAOB8+qjkdZd
SHH+0ep9/nEYCdl42rynCLVkxrmvJJPhVw9Hi8eNLMRhOaocTewHfuf0O9vy
4hDzeqX2Eg9i/POOUTvoyjDDKfLJn5jvtM5VxUjpTxBO6z8q40qsb+WsD7Ob
s+GF9dCJkgMUkB4ZfFeROQNxlgKVJ79WwDXJq6f+MlCBTHPsdD5QCql9VZ/U
rtLgZYd3jSlvMZRe3bbZk3jQYj3CglvccmG12p107QYV/WpJy1ZULIDj4Spx
+zhykdOv1YDM3cTzI65V5tfwGVkxabDut6UA9U2bvPpNRyTPLjHQSqy3xTda
iQ8jo4A63/bwFJGvdbpt+mPumAEOJ8/dmj5LgZL1IeJ30mZBdoK522a4FGRP
t9Cv/KFCrGqivZRVMZGvlVcXb6ShNGO+rxue5kEZ1/Df5bh09DCEm92CyF8+
p9a2HlKOQHuvKe2U/EAB4YEydc3Xb2F9lZNyGvH5E7O1RxkjE4H3yokHTM8p
QLvDofpBiwp2Ci/yK+1L4KB1kfaFdBp8SC9cFu9EUPA2irO4gYaKGjX7XR7l
wqKO3ED25fdo6apL0TpivRfdsy/cKBMKHnEtu3WJ/dV2QSf2WjPxfu6KtTxp
xTDYoNu9KEqcF5S9HP8J5IGkOumW5dEYlNQfNFjjS+RrW79fa9liDcjHpnWO
WO+qxsay2pQEuC0gGp3zhgIPDp39fdGZBurzG2ck/iCoP/Rq5botDfnweig3
pORCs0afWEPDE5R9cmH1N/H3i56XNLREiPlbZOjdfK4Ypkvbx82OB6OfQnkH
7Yh872jWoflcC28Q3Yc0qon1Plwu9+XMIA18s+eZRMsQZIWbRvYM09BBsuWL
wPu58G2fdJdlgg/qy/Rj8Y8m4mM/V5Wm0wdoLjwv20TED3uz5IdtImbQ0dZy
4gzx/Hk6bmqpe0SDm3815YW2FkPl6XN2z3xpSK+UldoflAudBxXbJMtfIua0
4JFUYrwck6yCbTtpYCNyUkblRjEkVS/vdbZ2hw/P+C99/9/9Ne/0is+nIbEj
VvKir3LhiRnjVsdrrohLul+NQrx+bXEqM48SDsoO3W19xHzHz/vY8jrYw2c1
/vtRxPsrN9sLVYfSYGT8ngnXCIJmtozHp+/TULXV5rjCylw4PNohF3RTHxnV
qP6nQoz/ff31x1u+BCL7rOm/7kR+0K1xdHhJ2g/49eY85YnrRw+s24t/0MAr
dwvbl3wEj1f3u63+pCGnVwbtr+/kwvtpq64feVRkDEdDpoXyweF2dlHSjVk0
9q0it9K9COrZpCzluWZQegD9rvjmMvASG35p5t+H7nU3F8nfGIW9LYb5h3u6
Ufl36YydIWPw+vLqOVnRThSiOMpB9RmHUuUZDUmTKuS26eA0s8MUZBz0KDi/
oRStnsx1Z75CBq/E2NJTq/nIQix0p/MSGXpfc0ZFHE9BFLF3bofMiP1ocUnu
ebk/Wnr5+1EaEQ+jj3C0pQoEgFfvBpk/xM9HC67Oi31JBdf0Zg6bW0Q8bTjr
/GM2HzrOPO77MkCGubcpdyselUKMCHWKexMZjLPn9kSvm4FrVdvuPf9ZBWxU
1oBSvVk468ajpFFSBiwntpR8j6BCUReHwa+fxeCv2HfxiB4NPSsYm0jvzoWT
5gUcsSxU9LfjWSqjxTdoV9jkLS7di4wmaIX268YgO/J5gI5jF9LL4Kzz2jMO
n3+ozASuQ+h3Dzv9QSIZ+A7K8XG4ZSG5c69bh2QoYBAnUrGX5SO62+qiTnGn
gOj2AbNNRwRhdKFxxImY35MVomVCpI/Q4iXXLOtG5Ic3mFMCh7KALWnDsQwh
Crz10Pe6lTIDSXYLLQZFFXBKy+Prj19E/uEQ8lRJrBToT+m7U7RoIL8akXSD
vxgcIv6Z+ifS0CZJNkXTt7kwlhxsVWdEReJGHp2ZRwpAd+rR3JfTuWgPtxkK
Ic4bvD77Mgb5vqBS3gbqfmI/b5Tbd4wn3Amlh9/IDybi09Ybucl285EQmBDB
x0Ccz3vD9XZy6WVAkjjjWPx5Ir7tbYjWT5qFk1dystWopWDfuc48e4UKs22b
Lqe9LoZP4zkiVcw0VKHolMxwNw8mTDZesm9KR+f/fRIe1KbA6Uf300ooEehw
/inZcOL9lQWs9ZwUnGFAP1xplvh8i/4/qd5KiTD+qEf8lBURnx0vFnheooKs
b8ae2+4lYL6NVhWfRINd4tZZft0IXtT5vqhspSEd3+wEloe50L7DpcXRzxPV
x+aHZRHxpevcBOJyDwGeGe/kH0R8rHRz4cqvpYLi+/XS/+UVQ/jOi/I/xWno
1dzTEJvdecDwNVW92C4GbbaMc+Mm4qNzkMATGS9LcI5pEt1EzF+3ZmB+n38C
HDlZe3eGyCez0LOniW9owL6bc/L3umJwf/zouqEjDW1gnBFv+ZwLfhWW3PdU
nyH3Hp4sMhEPTgralqcLEvPHtf37L+VicLR/Vra+Mxj926ZSvkSMT221/zfl
uBcwZnepbyLii4i+GV9cNw3YpJIq31cgeDaix0CaoKGHjCxFZaa5IPrmhlbf
BV9EYu1zliDiw4l82xqTziAoW45sOUXEj79vbMKijt2BsDGhIF1i/J27pC+I
mtKgLup2kvv2YnjrIj1sE0RD1n4yUdv8c+FDeO+3RkVb1PYyQ9mBGK+BLYQc
Z6VBWcYH5grjYqjdlng4V/YdWDDJq64S47PNqp5LLqKhgI6ZkVJrIt84cJlB
44Mb8i5iFEkjXrdoVs+pUwiH7pqgOy+J/Nf9kRtblPMbMDewLssk3t/3bnq4
cCANCoW9zw9OIfC+9rHlgjkNyRuavi8pzoVdA3uof78YI+m7z+ukifELutMv
xakGoZnn69V5iOszXdh8z/uDLzz9k/8whrh+pvWfL/LTaLBdpqKJ+TuCR88u
Nr57HQhfTLU28hHxhSNn+e0+TRrqI1UJ6E7mwpyG0MJjC104yNiuYke8/93z
H8Rmb9DgW7rDpCVXMWxg4/nkEk1Dp0YF5+Tf58K2cpcLDnwOqNRj87ptxPh3
LBxe8v0Ujngssp8XEvH/F3zNyq+mIf2DvcfnnuQCW9jM1BS7B7Jt0h85QdyP
zY46ig/e2cCq3f4X/cTfC/izuZLf0eBZygDzw2UEVzZJM7X5fEDLigffMRH7
m5vMN4vSaz7w3zk1kcfE87ysa3WyrZ+GSHVDEvfMcoH5X3q5glgwKNhubRYn
fp/pl9aeR+9paLL768ae8FxgT0+ghF54gSR3PhYuIz7PJXngKRk5gP/bhvP3
iJ8Z5DUz7kXTgFuMcuzKAIIfrN98nzEGIoXzwc9miftr1XHhluFP4rwjq31F
ORetfX+LstxT3peJRWHP4D4zFrxxcwz2DAfbPbHz7p+wZ5y64d2xfjwJe0bc
pczt6Vnp2DNIXQ+XycI52DPKyzZH9z0vwJ5xfKe3xnlA2DPqWhdjbx8uxZ6R
HKhic2SlHHuG3Lv+SNWKauwZ00tnk3cda8Cesdfa9EYEVwv2jBdMly4KLLVh
z9jLkyQa7dKJPUMlP83UfmMP9ozHn0ZFrI/1Yc947cCvw843gD3De1nqXrza
EPaMeCMNTcciEvaMwJWGN9Urw9gzrkw1eYQeGMWekR2ry2ohNoY9w8xLf72Q
/Dj2DGYf6ajnOyewZzRpHVbMrZzAniF+hYv7tOkk9gz6Iu3Q5PQk9ozvlwXZ
GR9PYc/gkNeJCB2fwp6x0cXpByiTsWfcLl2/xziSjD1j02NnZrd6MvaMO38b
Hf2ryNgzDrx1+GP+mow947qAguzwzynsGaNIoN/w/BT2DAooTUd7T2LPOLvO
zdiTNIE9g1vKXGBIaAJ7RlrOea8TL8exZwj6qjwozxrDnsG97NptMjGKPWPx
4TGv2/tGsWfsIVkdfa49gj0jJla5Z13CMPaMzcfOeyxwDGPP4DfcUq7oR8Ke
oVkl2cktR8KegSqyfeXZSNgzZMt/ON0Zj8KeoTZ/7sfhuVjsGXtFvP8pOXzG
npHuV7Xf+V0qeOtffP6GPIbaGWeLX9iVwd/cTXS1sFH0h8tW1aO4EqglJ9UF
VUfQn2zFtvGhWuwRQfUu0+JPJ7BHjCvf11zdPQlmnT9K/KRr4cbe4prsXUR+
9tdNbepRE4wvuwS3WJFBTzbkvK9uK/y5NPmIUkAGcdVoWlp3O9TtXQkWbiFD
vHBkz8vHXdC3bQ/jwSQy8CbF88qw9MKWrEHbYkUy+LXm541/7ofX91N7XsdN
wUZ1K6l1N6fBsamQnqI/jH3jecRJoVfNJOwbSSnRl+0NSdg3rk97fVbjJWHf
iO2X64wxiMK+wffscbz5SAz2jYIyk/fcK/HYN2rOizH8/voVOC8XLn6WG0fb
Wrv3WbSUwmm/43knFkbRVymZCy3tFZBlvGisGj6C1vkJXDStq8E+MX7IL9Dl
7AT2CYV60ZuV8xPQ7es0cna5Ggz1o4Vd/00B6zGxe+/ZGsFz4b6HjiEZfM7q
f3mS1QJvIhGq/UoG75zenBK5dsiL/RKY10zc78bbezaVdUKM7J/st9/I8LNM
P1f9fg8UXDmv+4f4+9UDv5qsfvYBe67LwvHmKUip+Fl0e9s0yBvPXP5qP4y9
Q5KFo0lngYS9Q3P9thDNFyTsHcEdtVKXhUnYOyybkQ2XaTT2jtoylbuWBz8C
0+2O5cshY8jEX9M4Vrocfu++GzNsVQd3U5VaaGJk2Dw5xx17uxneKXCP5nmQ
QfBI13A6vRUOK8tv3FdBhrahO8LR1h1w3P5+k3AjGYocuwLneLoh0/3XN6Yg
Mpzym3fYm9QLv5/kq4XsJWPfiD1LUb6dRsK+gYIMP5xVJWHf+PGX+XcCOwn7
RvOBM4WxMlHYN472doi7PY7BvlHs6xu+7WQ89o0w5SyOsqpk6FFfkSgyGkff
DBIMrG1LwchOJThjzxiqZRpk9btdAbsy1WcHy0cQg/upQt8LNdgnHmkliaUd
nsA+oTxaxW1FxBEvWq0Fr241JJ4KPJ6xMAXqVRssB283wI78xXuPifOO6MWT
+oYmLVCE5iOt4onrn7HerUJpA7uiqL3TxP1x5FeG2oed4FbaTWcqJYOpZo5z
764eWDD4zv3fYzIkN4XpQ1wfyL5I3F1HxF/HdYVOQeMUeJlDUY/1H8beMbaF
8R5lwzD2joCLerfXvSVh75jeekjomBgJe0dXi87zQuFo7B1N+kXL6S5xUH9r
u/T9kjHUK8NyKq+nDDJffBUv6KyFWt7PIRRBMghl6u2r29YM4Oav+sqBDEgi
zz8moRU4ZO8GXS0mrodjw3th4Q54VDSxcIN4vjM6CnKzK7qAm5ZVtSOGDF/5
Lmkk6fWCzW5lWQlxMvYNBhlnO55iEvaNDsXcJzE6JOwb568ejG7nImHfKLlw
WdAhJAr7xowF9xCLSSwsKbxcsd/UCgubDm0IyiIDyV7hsty7dvAP+JSoTsSr
0FcOv4C7C6Z2sAcwE6+v+cXbcDPifEDCfiG0o7mxkZ+E/SLrbPWJtNRocBNa
PlZ6sQ2OhIcy6tcQz39idTlXVQc0+h48C3VkqD3249lhi26Inv3sOPeOjL1C
47tHWa0iCXvFobd6HBd3krBXhKaVjVVKRGGv4Jp99NRLJgZ7Rcg1MzPvkU/Y
KwIhjv+UTjIUXAporX4+jsqotOHtV0phYUmHyfz4GNpmyn/9zJEKUNF/nSHc
M4IGGz8O799Ug70h559EU9neCewNeU0baBEtE2AWSS1gYqwGV5uhv8IzU2Du
/+jlZtYG4NX3NX2mTsSnOlHJbvkWeM2daf08lgycrhcueZW2wXPW4cDVBjL8
rpVrTlbsBL/46e+d5WSIDjJ5ED3XDTObwhN3EvuJi+DDmDjrPmjlKz1/c24K
Hu7lu5vaQgGvZG527Yhh7BcN1pvODm0dxn7R2y4REONBwn4xxc4zbS1Jwn7x
k/szT962aOwXfrnFgZaycZByM7njWccY0o16ZRecXAZeQi028S61sJMvS7yZ
jwzmEnuVUHkTPPDh1ThD5CPvsz8/5LZrhXelB9fHFBLPR1pL4UOGDoi6d/1T
OfE8i9olKweHdoGgh9pObWI9j91elXoq0Qtn7u3Ut5EjY684YWZ4WbWahL3C
7dJZoSk9EvaKyXravUluEvYK+fX2f6Iso7BXbHpWXvpdIBZKi82a6f0tEP1+
lsswnQx5PFvf2hq1Q3yYUPQG4nlmP/DsvQC1E6SfJI+N55KxRzD1t9jvsiBh
j6jb3BD/R5CEPeLpyE7vdx7RoJs4wSTP3wZLiR93XyLys9/nPizrR3UA53Bi
ISsxn+d6xjeyKnXDoZPaUb+9ydgfXA9ZHXG9QML+MDgmerWZeJ7X/EF2XdFF
AdUouKv1ZWoTWzu8Mzf40t9EBqYXuimTHzph6zp11wOIjP1Bcd7mqKIoCfvD
86IHtz+di4aF1KqCQ82tYDjeNLtIxMfEl5J6YxodoLlXePgM8X5r3rDn8C71
U5wk7A3KHgdVjYuigGnCnH8prR1WugLevyfu15o31DMfJWfyEetxQm3JvpWK
ps7omun1RUPBx01XVSzaIOTtdrf5WjJc2v7Tr43aAdzVP43vE+t9zR8sD7i1
lRD53Jo/JOzJl60Qj8L+4Ms215TKF4P9Ydv0WZfinE/YHwZDvEVNeJMhqc5Y
oNFuHFWRnp4pgFKQT9cvVj1F5He8C2lp/1WA8bGdgWqjI2hb8ulimfFq7Af2
UdNq0dwT2A9oFTE94vVEPvKcYejvQBU0Xt/dODw1BW9sYv+EjdSDYs/7T/qq
RL697dO+gIMtMDerV/sgmojX7UfupKW0gekd54saxHznRWXs4hPthOBdS5EK
lWT4Lldg4NTfDe8qWK8o2pBhUf1KeYdRH+xdUNOPX5oC4xT1rm9VFPgglL58
KHYYe4TZ5QOTpv8NY494s3tv8rwXCXsELzWBVC1Nwh6x5VSLuRRDNPaIJ+3r
z2uyx0Fk/8sDNkNjiPOyZDRTUBn8/jsSEW5QC3l8BX9KecjwZteV2sshTfC5
rGXx3f/Gt7zveodZK5Rt3px3/jsZKv/kdXrNtEP2WeGoZWL9ki8f8GV+2wW7
1KIEZj+TgYFJ89AVvl6I32YzE65Axv7Q7aSuYFJPwv4gdTylKOImCfvDvhvg
tpuHhP3haq11uJFpFPaH/xZDsgLXx8Kh9aPfs6pb4CjnYlVUKrFf3F+MiFJr
h2NRU7sHifG0rE63+3d3wsP2Kw3Z+WTsC6KPae8ln5OwL0Q41bEFHiRhX7Ds
ue/cbBMNhdMGS0tb28DH5vF2aWK+TP3ebH/j0QEfxdwrw4j5XJdioGYn3g3m
o/Ff1/uTsSfsN3xgPE6cq9Y8IY+dk76TyK/WPMF5p72TsWIUtEb6rBP+2wbO
nHZjJsR6q7jUtHzNsRMcNZs4Y4n9fs0TOO1aRGSPkrAnVHwVFTgtHQ3X5iFh
/Fsr9C+8JWWUEPtFNc8zxpMdMGi+mdJEvN+aH4gr7rVmJvb3NT/YSP6eO58U
BZbHdeW5ItqB2XfsmCWxftf8QCegxVhmH5EvPJXI9+ynIvWz2y+/rYgG/gnb
s4wGbTC6Q0fpILF+824MJy31dsBi8o7LV4if1zxBXeep5SYiXq15gtfZRp/q
41GQKHfr+MPONnh5t1jPgsjPqMaUjyrsHfDOwz3Jj5ivNT9IUYhWytpFwn7w
5iPZZ4drFFxqFHyo/7wdeIPvHjhEjHfG7dfphDkqejxdGHImIhpopua8b6Ta
QL+/54BxNXE+WEkdkMvsgM9WJ4+LEOflDXy/bcuraLAh+2zOe2J8PzeUNo0e
aAevSgVzHeLzVeMG7lh97YTO8E+ROsT+NJLjqdm7i4iXVRyPDXSjwcNco/HR
WCtUcG5aZSb23zVfYOb478AzDhL2Bc8jPoOtzVEQHuzK1FbeDsO/Kvz0iPG2
SLq/bDpNA/+Xg9X2e0hAKmF7mb6+E2B0zOINMd41XwhZipR4Q8S/NV840p5p
fI6If2u+oCtiJtnLFoN9QSlLjL0n+hP2ha2vtq/LZEgGwS0qtc3O46i6J8PC
W6oUBr0MwgvOjqHT1/k4Hm+sAPMQA0bDqRH0MdQrVbGjGvtAOZfvsjvnBPaB
LSVzja9qiHzciHl+taYKFmpypU5NToHLzEmYqK+H2GNMDQ0Xif3y6DCnBW8L
iHSnLN6NIoPsq5inJR/bQMbM+cs0cf85WWjfdfk7IbRldfs8sZ5UPO50W7Z2
w9UD1cLdL8kgcru6g6rbBxV9OydU6FPQvzSxvbSUArzjvycDPw5jb5BTlMr/
unMYe4OGAkdeiA8Je0OOnrn+vAwJe4NQdJ3Y1EIU9oaBkTjeU+vjgJPXuOHV
2BhaTvZJK3Yn8nHKdOoHlVpg2VtocnI3kU95ULdEOjXBhZuilUdeEOdxrpsa
mYbEfimywhZMnCdffxQdjRpph+L07eHbiflVLjKSOvOyC14eMQhgTiTOn9d/
xZ5n74Vu0uHsFCBjX0jwOS/xuJGEfWHuiRDz9lsk7AuF++/tyiLi35ovvG67
lu9gEoV9gTPT+YjjQgz0C+zN9CtqAV29nrPZKcR+vf1eYtrZdvix7+K1OuJ5
FrstbFPf0AkujF9KIgrI2A+KZP/6lVqRsB+4lNRWGwqRsB/8aGf/t/gkGp5s
DZtuW98GA6R25iTi/Mknt8Dj7dABD7tXVUaI+Ge4K2w+92A37JBpyXobQMZe
8PTX+Gt2FRL2Asozl3tniPi35gWJvEbRjiejwO38Rla5H23gaLbdUYiIV4K5
W8J8rTvhLXO7qw4Rz9a8gOHCn8/Hj5GwFzRBSd2bY9Gwle11RFl6K9hwWJ3Y
RPx+vbm3HZdEB3zitDbnJK5/zQdO1MdueUzEvzUfGOViMs+PjQKR3poLwv7t
0Mh2/pERMX9rPnCqtXnXBuJ8kporyBMwTEUOZQ+qQguioZ2xQG7schu4da7E
FxP5ivkGnTzGlg4wjOKpqyHi35oXnJwdPydExJc1L2D/WV2gRMQ/Q1Ir2Na3
wYsCTboUEf8+Mhuk67N0QMDq089JxHjXfEB1U3WXGpG/rvnAjTZJpW7bKFj/
PPjFwwdEPOGuMuYkxpvYOBv7dYmK5idM2e8GREPsu0S2G4fb4PNZ2NdF5JsX
IvdTVL50AMd9paQoYv1dyhJdFCylwdylPJcUYnxpiVL9P3ja4f3uxi3cxOcn
btvNkhrbCfONq34KRWSI+W2XQdpDQ0ulxWQHtWg45e1RrtrbCjvfmC2+KSNj
P9gZHZDfTcS/NT94cKMvILQqCrThF/tYQTvM3P/q/YwY7+66AtqxEzQ4dobx
+m4iPwwydXEppXdAcgeNskjEvzU/cPXcuSGaiH/zj6B8Zo6G+O8VsV743/nt
SMG1qLw2CDV0JmcQz9+aD4iXBNkpPoqCjGmWDY8CO2DAbfcZHeL1AZLnwHgO
kZ+/jhFaIK737oif9j7PTrD/UPuJSuTHe91uW80K0VAhT/CLdQrRUPR+5Ahj
Qjuc3+684PK/+7vC0zt3jAYPdVuTH+wl4e//N3u23b0oGQWy362C5fg64M2e
uBQb4v6dm2nXf/CMBhojXyTlif3rpLLEwWhog23PLQ/PEtd37qZ6WeuxdvC1
+NrsS/z+2vf/f995+mwj7t9/DWib/G0aSv17TnhLL/F88kQ9it7aCa1zPT+Z
iL9f84DkmyLGN9jw959IteN3W+GoHPYAHpbyv6k657EHMP0aeh9xTB97gDZr
o0Epkzn2gISD391WrF9jD7j7OvOH6FM37AEHxFoutoX6Yg8o7aH8UEdB2AO+
PN2dlTQXgj3A86+W+1OJMOwB51gmL4S3hmEPuJuzFPrfuwjsARvUXSoO8MRg
DyDlyoav3onHHiD+cOPAhoYU7AEeaRmijwRysAfs3j/Bfqe9CHtA6+GrFl17
yrEHSBq7mNw0rMEecI/K5tPU1YA9YEE+K3eqqRl7gL9d3b2kda3YA2ziF3We
RLViD1DXsaKf4mzDHpAR8/ZPQlUb9oAXG5QyXnN1YA848E1NJuRyF/aAttwP
11W6erAHuK767MjU6scecH5T7qnPywPYA/h3fVl16h/8v/6Gh4ytMq1D2APU
SoWDpfJJ2AP+k7SpY9s+gj3A8Sjp0z+OMewBie5SzJ+0JrAHJF06V5nT8X8e
kOWQ0hizbRp7wHuG+SAHhlnsAeTn47ucZ6nYA5R+zFeL3pvDHuC5Q/27wtd5
7AG19z38K68sYg8Y/nV4ceTQEvaAxT3uDXd4VrAHdO7fa+xuTsceIPZ4UtT7
Fx17QFGalQhrOx17wDKZ9NXfmI49gCvda1xvHx17wFHpxe2VTKewB5jfOjJf
yKCFPYBFKkRsxeU29oCVXS/Zz7E8B5bfP1/+OEZBf9QqXPdvdoLGZtGWJJ9J
5Ml2JumEfgBEJ2+uzJaaQH+1fWu7woKxH2zd6Ry3+3so9gNhJ0XfVdsw7Adn
3yYckHoQDr8iew3ymYcRmepbwnUrCiyO/IxceDWEHijf7qFfjgOqtaSQPakf
ib7Ld7Pdl4j7LUB0vpz0MgP3W7DOdYU4ny4AIW7+BoZXTahZxLlNOrMOrilQ
3xyTrkVDQaw8CeNNuP/imU1DirdtC+6/CHX+YfL2Rivuv2A/v/fwViLOr/Vf
7DTLHf5yqw17x71Z/Vf/rrZj70icyXAx3NOJ+y8Y7xzdnuPbjfsvUP3YTRXh
Ptx/wbx9674Lpwewj3RfHaN9fT6IfSRkQIJl/OIQ9hE2v6Sq2tMk7CNdbwOH
DbSHsY9Y2X0/KbF+FH4fIG3gdR6Fv/GiRl86aHD/LKvCUvsYuFTmVZr+nYOD
lTJB+8UmoGmq0Kv62QKMWZ9h+F07BVxHZlz3ii6DY/12+k0eClR/LDa62buC
PeUXKZcW2kDHntKcpORmQjyPa57SeyTp8a5wOvYUNX4RrVMSdOwp5hpzl45v
PIE9BVXY3yTXqmBPoaQd/zNVY4g9pSFjh8e7jqdAyrxV7OBCQaPO8eEb39vD
qHh7stTUJMpWfWHKu8EfYgcWaPEeE6h94/28ue8fsL9c76veoXQ7FPtL8sgO
Znb9MOwv9U9rrdazhUPK9o4SpevDyI+xN1pRLxKEzMR/qLCTUM2hnAkW3lho
T0rhDnIYQPqaSyZ1Qp9x/4r6BpXO7wNpuH+FmjCnFLg3D7Q3RahfvdWM5CPu
NbzyqoXSfKoOJaAOSbva1uhONeJ+FqFXlmWWoi24n0WNtKE0RKIV97P0OV94
mVDYivtZ9rOmin6QacNe9Jvz7H47lnbsReV/PfNt/Tv+r5/F3mOn91wX7md5
ZB9TUO3Ui/tZhqY3njzT3I99aaLBsItffhD7UmROin3gf0PYl57Ul/6L+4+E
fem3umQXYhjGvsTQZ1V813kE/no/1VU6PgqvKnjiwZAGabXjajdtxyAh5ANd
K20O7G3rrgn2jsM9savk6a0L8PetvyiD5RT8G9w5KZO8BLvYu5uEiTzyIeWt
xnH7FexRtCABMj2Ojj1q1l1G6vW6VexRL4s9CmTy6dijqj1LI35foGOP+hIk
7rTspog9qoV9KkzESwdUKjprQh7NoJJP3X/eLZhC0+nHzD2i0+gkmfqBFPQC
8h6/XeKXm0S60pXjyyGBEPmKN7x8aBxV7jFbpuuGYM9yDtQczf0XCt8HumQM
z42iU407qEfiwkCY30Xuz+ow4pHgZrUfDQflo6RfIgUklGG/zurslWgIcvHV
0WgaRGnP1pmoFH4EpnMFkmbQjx4+Z7x1QC8Z9wexPlql3ziRBYlCTH+0ZRqR
jVYAubquHqjFswmWXdVo6sDVf3N3m0FsR1F0+uMydDuK/lmwogX3D73nOiEt
ZN+K+4cMnCTN6pdbcf+QGXGck/Fuw/1D7B3n9Khp7fAqL9TG8WcxVMppno0o
64NKgfLnHgaVoPbA0XQsZgD7XcOAMvlv4iD2u/O6A8cL3Iaw3111SOerekHC
fvedRdoiIHkYfn5TT59rHwUTKW2ZFKE5EPguLeopOg4MB596vteeh5r7820r
/GQomPUbuZmwDDPOSvv8H1LAmr5hRVSEDnqd80kRydOwsj1rUHGajr3vhYRN
kRnx85r3ZX56PO76ho6972GO7297QTr2viz/ahu1s/LY+05wQvexdiXsfVQ/
aZVRaQPsfWzbL+V4mTyB2u1sJtXpFPT6WcB0XuEbMB9JCP25cwoV85PvbtHy
AwGrKeeonAkk0TwaEKD4AftgitXTC1uPhGIfzOGtPT6sFIZ9UP1P8LTIXBgw
KWsvsjoMI8lQ/59RUxEw6O9R+QxIKKZb9VNQUAxUVUyz8bcOoE7DV468Cgm4
v+pR57kGQb403F/1/KV+w5s9uZChGFd6Jq0ZsWk43M+h18DKinmJ0rl6xLNl
n/Ie40bcb6W0f8rzyr9m3G9lCst/rvC04n6rXZe0S7tTWnG/1dYk5GB6sA17
pvhFFo+ZyTbsmT33T9zSutyB+63WzczM3Yzpwv1WzFrSwrxHe3G/1aUqMSth
/37snz8vrYrZcw9i/zzJo+y+vDyI/bPz+S/VD/Qh7J9b3DOjd/WTsH/ebHTM
+q48Av/OFfzrZxmFZPM3p6MP0uCKl5aur9YYCB4asTjhMQdHr3MUCKaOQ7nG
GaYb/fOwddv3M47KU0DuWzch+WAJRmW+n/CKIUOLTVpAovoK9tKkH9VZge50
7KU+nCEHXjCsYi9NJPtJslbRsZfeWro6feIKHXvpRPPu9guip7GXvoy2HF7Y
fRmGldwFVYNm0LoD3scVk+/CjaRzW4quTCOnHUnKH4ut4Oy+66MTtydRv3u7
VvWfANjLziZeyDKB4iV0TJj+BGNvvba0oK82HAoDtVSursejqP5Grm2Bdxh4
PB0u8xEYQVVTm6Sl48Ih9u7NIwvDJORcH/fK6U8UbOw9/zP6wBA6vsnI5PO6
j/Dr5sqRJe9+9ITkJBItnYT71+QMRZ2Er2aCaTT7+KGeRpSq/0nmsGI97P/3
aGerSw2yO/Tk9LajzXCKWvF5gKccOemGV1rFtuD+NtvpurBf5q24vy0+1Tte
aaoV97edl70a1fO8Dfe3aTjcirni1A7sZ19phKsWg5qYvc896z5w2bYntTOj
AkxLJk7oPBvAvqwmo+3Z5jOIfVlplFpPvzeEffnfg4WTS/ok7MtfHL74DdgO
w68nH/RckkfhxDvX0+NMc1BpFytZwjAOMse73tQLzUPnHDfFZnkKhm5pBN8w
W4bcz4ff089S4NWm94X6G+lwjC3rSZPzNGRt/LESNEDHHu2kJPOw5wcde/Si
TPfFM5507NFZrOiyBRHf1jy6/VULu97Bk9ijSZkyXuqS6rBdbb7n6+QMOvZO
/21ooDHwn/+jl2I4gTymPjKrigeD9lWnLP//xpFWp9Zykl8o7P3E211eOYri
imlnFh6GgRZbcHfusxFUmb7+aZ9cOFzpuupjLz6MXgb9En3YGQkk+5Sz51qH
EMUu7WpXeizoJXbkSVlWIA3TRd+nui3QyGZsaytVjKia42rHlFtxvx/3rd2S
0yptuN9v29Cjx0LEuZ9ptJH/kX453PjgmVvNPACNQTf05IsbQSOQb/jwkSHs
60P2yRdNhEmgNrdoUrZAhvi2dYbqKSvQ8072p4TUNFjvZuza9I0OqnaFOTW2
MxAi7aIa9I+OfZ1ns2965Qk69vUA52PZHepnQfjHy1Bdz1m03X6s/Cpcgz2j
BzfXZ40jwft+Ln5fQuC8aVjuqadjSFrQLsljdxiEzxVfJe8aRSq5uel9eWFQ
3iySer9lGM3kxmaVikcAdcm41sSPhHI5jcpN0qNxv6G1s4fkq8Q2EDAyyToS
SAGhyaEz79Xo4BJ6bPJB+zRkZ5yjBhHz/1hHWOidyCzwHn7K8pREx35fcnzH
/CMBOvZ7h6yR+Lc75bHfCzYN2aZ4XMB+v0nJ48HpzBvY75fe/Ys0uv4YihUe
ZD2ooiD5rJZLGSG2kFng+9/AoSm0IHzzGm3JF4zPmDTx1E+gxi+eKwkMH7D3
c5mckeP4LxR7f8w21luHFMKw928WFj1eQAoDybEd7xcChpH65/La7rwIKPic
d4xJh4REU/9Nn9KJgWJtd++7PwdQYLSn1mpzPO5/fFYtGiJhn4r7H6MvcLOH
R+TAyK3413ndzejkaKBjaXINsHEds14Oq0ez/VWjaXsacT/kluQL9yynmnE/
5KRVUWIOayvuh/TnWBjRJNb1Wj/k9Q/3JH/sacP1CRZLSudqu9pwfYLiaT1G
fqkO3A/pf3lPwKuXXbgf0sTcYfnf+l7cD+mRq01Ls+jH9Qz7DnXLsDMN4noG
pwr/1BzyIK5nEJpn8L43PoTrGd56/TvdU0PC9QykBOpS4+ERsI8yaE9YHoEs
8t6PDCw0OPjEVS/pxBjY3Hlx+j+bOdioVED5GDIOy5ufqF4pnwc/zWa1Mokp
OJz1RdVPZQmqL6bMn/Ykgw9Nqi1PagXXP5zearnF5zUd1z8k5RUynftLx/UP
kg3Ox7yI891a/UP8KSrLXn06rn+4YCE2e4UBcP2DztanJne2aYMo81hLXOIM
anV0u+sQeAdiDY+9TzOdRqUBfkctx5+DG/2MXs3LSZSj7vHXITkADEnvX8nt
m0DP33w4Xd4QjOsnxBJOKWxsCgVzxZ+ufm9HUUJtyrsOlzD4zr39Xa/0CDo6
Lr6Y7hwOjet5KzuWSIi96X2b+tco+LYhur5GcwgNyD4J2Pk5Dn5QAhPl8/pR
U1Zkj1dSIu4v5d5xnHfrRAZU9+++ziHShKAsYJP4zzo4xXe0xn6wBg3Kxaps
/Y/IWwdqkheflqNXG+trMn1acP/pVlmSXfGdVtx/av+d9RrPcCvuP73w2Yar
xKwN95/W7ww8EPOwHUp2dFlqTyEY7t2mqqLZBxOONaq/b1SArOnq14brA7he
5MZUkmuM0yCuFznTtSrQcG0I14u027C+UlQn4XqRYqe98nymw/C67sQxreBR
+Na/Zz5/kQbBRt2yfZQxMA5pfdHINg83JY8uFZCmwBpm7wSpLkN4wZ4zScco
wLqZ69cd2grsFuO4PPVkGry8b7J86qTj+pJEG3jJR6fj+hKFZ6YsqQF0XF8y
W/FNu/8IHdeX3LjmaCDnfwLXl7hHTvDdfXQJ9FhVXRl/zyCz2JoTEG8Exv+9
+CRiNYGY/mPmEKR/AEmdfVciD4yjjmueTjavQiGNR1jZvn8UGZo6ecneDgPH
goqIdW4jqNZ3YpF6IBwcnnEeun1+GHnol0pX+kfCh0Qmzkd/hlDPleN75+/G
glFIz3fV2gr0bT5T5JliC+hVUzvq3xajpdq/DO0Krbgf9/xh3jsSim24H3fR
TyY0l7cdTK+9KvLbVA692508imb7gWpcaWhyvxG0TCq/qOwdwvUyV10aJax5
SSCxfoLbapAMF9oVHmt8WIHyhJB+Vf5pUFV+ORGbSsR7wbRqcdMZKJ1n385B
nFfX6mUsar8kGCnScb1MpKcY78SDM9DqlLGwL24WVXw4UfK7XRcMUmO0lGvH
keXZN0Xn7UPg4F3ZqxffjqHqp77FhqxhIHqvvurj0VE0lORg4/w1DJZfXLPM
HB9Go/5W9AHmCODx4zdRiiehbFXxiDbHaNwPbGptqcUQ3gabn+mYkewp4O4p
sW78JB2e5PnUOBdPg67R67szNDok/twtN88+C9+YNM5aT9BxPQ7nUrOV9X46
rsexv2Bw4shzeXixb/A2ky0V/ZkdCn2vcRHomnr+mWrj6Jx79OUNF0NhgoVf
ODBtBAW0bvoY9i8Mgkf1Y2xXKeA/XjutHkyHv+aBM+sUZgBpmh75SeTPa/U7
O4vYPT4Q++da/c5n0whxk+7TQDGyCDL4OobMK2KiHOdC4dKV0QQevVEUMRdl
3BUcBno1mX8vsI6gJ57bBfTLwuHcD22vnOBp6LVxH3cbo4PAeYabJeQZSGBU
kJKco+N6n0Sxe7OPhOi43ufXNWM2Hy4F2GdmttP81gi6fmDPtTytcKA+6OLa
fXEa8v8YmGiW02FHb+1HI/8ZePJqxZWLiK9r9UApr4M1oqXpcNvsL5fkzTEU
1/kwKOdgGGx9mT15ZMMoqjLU+P2tgsg3XjduvDw1DfqvPH12rNJxPdBDC40H
t/npuB5oovxxYcwvOVwPFDyjdSp17jyuB9ocI/XbfF4f1wMRe/zf/9LNoaCd
66ZCKwXFX3nyJ2WzLXTGM6o1Sk6hd6JcWkbVvuD4OfpHT+cEigga+SxOCsL1
QzWRXENy60Jx/RAXY5plg0wYrh+6U7jUua6HyA8knlwbixxG+scGJJaiI0D4
uMbt1lskFPS39JqEbAwohPSovWMdRPKio1Y2YfG4Pzr4i71gkWAq7o8O+HUn
eqNhDvykJlxfnGlGuQKsi94uNRB1cHtrQ1U96qoIS3/5qwH3SwvsG3BQ6W/G
/dIKv84xizO14n7pX+HWBo5xrbhf+vKyeRD37jZc7+RXN7Evv6kN1zsNxGj2
qx/swP3SN1yz77Dc68L90jz+W4UPzPbgful33fP/xI37cX3U8Q9KJwz+DeD6
qFbzyCt7RgdxfVRzilNaU98Qro+6Lxzw0LWEhOujYgI+cl7bMwLF9WmnPGdG
oDHV0aD0FxVYjWJv5ImNQZzTWaHfj+dgrnDrhnGvcehmld+SmDcPuhZ6baNC
U1C+xTj1tPwSfNNOuLTbiQyljIaa3sIruJ5qS3CNtOdzOq6novq3hpJ/03E9
1WrRH9HGZjqup1IPuHejx4CO66mqPn5jNXI4heupRqQ0Ev9z1YJWso9wc9YM
yhLfZM/PcgcufPtY/8ViGnXpuvD3Wz+HpLHcwIK3kyg2baJ90CkA7C/URq+I
TCCDj7LHBHKCcT0W302jJ94VoZDz+x888RlFAQ6J200cw6Bj9tODf6dHkGz2
w/eL1uEwpvnKr+ofCd3QdLCTfBsFQbsapAzuDqFPpynSjG/i4Kn4uOnN+n70
h09UnPFuIu4/b4l9c+dcWgbQf+7Z6aHdhDZbv5/J7KyDuiOsgtdYapExuPmc
XN8M1e11KX/Dy9FK0aXv/K4tuD/9sgFlXsCoFfenR5R0RfkMtOL+dNF3wa+l
7rTh/vS/T66+kTJuB1bdqltDPgiaL9tcUTnZB0GFe3dvl6iAmG/rJ5nVBnD9
mRPib2p5PYjrz8z1gjivaw3h+rMie97Qe0okXH9W79zreermMHyne4ZIe41C
v+KBL+ljNLDXXpSfGhoDrZkfmiZM87BPN+9lX8cUmD798OTHiWXwLuOMcD5A
gemOBynDYyuwHZ0v/3F3GsK1x6ROt9JxvVqh39l1JUQ8WqtXe2RZdPwOEa/X
6tUiFhe0tonRcb3a+OV8nRzVE7hejbTz1OT8O1VgoK0MSDDOosQvb3jZZY3A
0Tq7dsp+AlFZ8u+6936AA+3UuLhjxPlj92EV0uNQoHceYTCYHEUuB2pV42+F
QZjXDfuDfiOozuFaNp0nHIJLni/paAyjbeKN0xusIyF/KBTZM5OQNvqx/o1i
LIz59BXpLlUgC2n2lUXpFti3X8rxx9di5Kq8edFMthX36+v/F/FH52Qb7tdf
uVJoELazHXb5t7z/1FsGG5ZsvroN9cNf5V+jKwqNoK2ym1Vv1xCuvzP5ohyy
jYsEB7YMWWq0kyGovW+5yWMF8qVr1a5xTUPE48bJhi90ELT+0nLn5gxsEt4r
V0jkA2v1d3tEcwSOnaPj+rtDbOka5j8V4bNqIx9jyiwanXd2p4vowhuOISvG
jnEUIWapF/UgBLjGGRPUvceQ9x+ht9qbw8BSoNXOUW4UbVeoOX79cxhsV6Pp
dtOG0ZCDYej0UjhIkOyPyaWRkMTdkHceD6Lx/xdwfFKR0zuwDX6+Uq/It6KA
zJLR+ZjjdLijVCLvmzMNCbLBAh9m6aCsxn7mAMssGClzbWAk03F9X4lOutxv
Ih9Yq+9TczphIq4vD2pTqz6zrlTE6+gtN+irDFNNwqN5V8fRy/9H1H2HU93+
cQBPZSUiIlKUUSRKkjRuu4GWlQYSksiIiJQVoZAUoSKjEi0746jsPbMOzrRX
UY6V3/1c1+98/HmuR8533uPyet7vFZx17Adj0VJv7pqvXymEX1cbjlJn4tAj
l4frQyaGEdn2ZnDMYwaK/xb2Z5/iKHqb6SOTj9cDTA+Yb6pcMHSaAR7whyhx
pZGfGuomqfVfyaURrlyqXhwYjEVR64bMZ62ohN6Ughm5qDjk8uIE+fpGCkG0
YE36scx4pOrvv/Q9bAQdRYTxdWQGKometf7Ti9cfky8nY34zwA9+FHsiPrmD
AX7Qcvg5/5+Xh5DKEZa/kdfw/PfH5NesFh6P5tiDpdEI2vhQcfN7AgN9kCvN
ePpgFK3uLB76idcDTF/olBKgPKvCQIZDtVcPXKURHBb/iCeKxyHDfQWvuHio
BI6Hq9p1CXHoMdeSm3nvCLLu3qE4+pcBvlCoRUF+CK8HmL5QNNko4tpOVdRh
48v+UnQUXet5e+vlEgN10MQsuNUnCOvXZJ5wTkeoqLfn/o0aGkHj16Y1tzti
UbK2R2q2HIXgIshSIvEkHkkm0sjdniNoa/UOli1dDDR3aNT9UtUoemZxcMoL
fz/TJ+YvDgdO72SAT2y5qHu1sOsgsuuXLyB6UwgVia6KdAW8X9t47TraOYJm
xaXp7tkMNNiUQ1h0GUW7ovQzjPD9VB64xq7lRSMsneBQviUQh7xkLM55VI8g
thCLNHV8/de+3bq7SGwMjQqTpF2pDMhDmDmxXetToSqqUw7RdkqlEOouH1JZ
yxGPLETjqXVHR9HPsVN7DuL3i+kXw7LMLJzl1ZH6H1HRbasphHJzgRiHlnh0
ynrb5rTXI8ghy4jIMsgAz5iifvDriBQDuQQ1xe16OYpopbrr2BYZKHXsxROd
3yNIx+1r76k5BnjF73yOb/vEGeAVhfVzKj9OHACveHk+5KVCkjZ4RY76EK3A
iAvgFeUduuSHL95AKuI39qS2DxMakglGGcV30IDot2Ed1UGCibyrfuznxyjy
AmI/QOwnrOZ+5Pu34Rn4RhWO51W/Gc/BN55d6XtPbF8c+MYg3enoF21xyLjz
1ZGeJDKB5DJks+rpC2TmEXt3vzWJcDJVcl26TCK6c4glI3ZjL2Ht70fB+T6p
kM9ACfm+gsz4APkMvMYP+1XUc1Bgzo5K3plGgpvGife3blYhG/l79/J7agk1
mTWMj0N1kNcQklEZL/yzEfIabA8/UBlf3Qx5DV8T952/ndgMeQ2NKS5H5Ta2
gMd8rawc/qmmBTxmWrNuBX1LG+Q1qCX61p+51A55De5SzSX7KZ2Q18BxTf3B
b1Mi+M1DJ5cOrZrvAb95+4fEm8a+XvCbydza31a194HfvOBm5mdWRAK/uTJ0
KVVUkIIsqJ1T9wYoiLg+62DS9Djy6/zYc2QnDbkl9/M8uD6JbGb3rbsfTEeZ
60qpU19+IRV/MUHXbYOoddXRJj7FP0ipXWKO7e4QOr/+T9jc1hnwnpOXXGu5
XBjgPcNZeq4cwuszpvfs3v915w08PzO95zYkeT/HggHe08vBJJxf+wh4z9cn
iusGNM8gqfMDBv35o4Sg4RXl28qs8Pq1zz7VfYRA2b9iE6+6Gyo877J3b+gA
4fllAbVHjlEoYtY203h3P0GP9MFS5l0MeNENeb8520pi0fmulaJ9T6kErktv
m2V84hDF5BeRT4dCOLx5jWmUczyanEnzKFlNJsxHeBltd36FViddsdvh3Ed4
oLX9wZJtEvrUurbyxk8igb/1N1FdMw3yLx4M7H8a+fQL4g0RmyyzaSCMnOaw
+FNagyL33W3SFK8mNIWs28L7pwGFNNYqBHwpJewTfZR9zq8J8jHcnSdkW82a
IR/D1N/Lur67GfIxEma3f3S0bIF8jL0fO++IXGpFWR6oTcqagI7xKpieUOxG
410nfGNEy5CRddCqtzo94GMzuPz70O1e8LGr4614X+n3gY/dG5D0bk6TBD72
LGtebr0JGV1cl3tSJpiKHKZ33N/VM4Gmq1cU3uiioeudP7lsVv1CK696F11v
HESoQX2BU+kv4jj25ISz+DAyPSz44FXfDAph612YuzyCaoXrI8caGOBpj74q
04rE4xHT00o2ZTUdiWWAp3ULCWuS2sMAT/uuybBpevtB8LRv5neElcjoIgPz
k5zHucYIJ3Z1Pvy34jKKlDXsORrYTyCzPw4vqolGL/l/6qYq0Qm5c7cz+O1i
UXzWbmLtKJUgHOAge+lSHHrLePNLJRqvz27zPVsUjEdJtindJw3JhIZNhuWv
bV+iScn+TjoPifDItc21VP41Sn1IRMQ15YTac1qXsvY0If/T585xfC8h2EXd
P++3rxnyQmwCeqoGDrRAXsjcvhXq3OtakdOnhSn5sh/I2YngSm8nIrbCp1Ia
O+oRV4iX+ZBAH/jg4a/3a88JkNDL8AvbDjUMoeLWNFXewBmkdNcy0Gw9nv/9
PWypqQx0U1z655LJKLptujM3Hs8fTB88dfEQ6ak2A3zwNUPna1++qaNIBWKW
R+YY4bK/8pPHRCMUVukdbN1FJ+zZ7rhD7/JzFCE5fvJMFI0QfPyQ0v1VcWjj
irYLv45QCamsYxE/UuKQaK5q5fA0mUD0MLr+eyQeHQ76tEExm0RwuVl3b8A8
AfJKTjnKmlyJbEE3V9S4pDoPo/a/ilsG5BmIFGZ6M/rzCDolmepjP8pA0X8j
dAirx5D94UoLlWEG+GPBwK1xRyQZ4I/9uPxuoFOqSKWWfbvFo3GChN4AB/ve
Y8hiHW9owUU6IepgEecapVi09viqO7UECuGVYpYw+3Qc4vgqqRsxPIzK5beI
CYUx0Igd11yD3CgSpT98E4Pnc6ZXfrj9aEvkWQZ45Y5bXiP6JmrIUHxHmE0h
jXDpXW+6CD0WqYyNHLS1oxKMfPO/Tj2OQ3fZn529u5lC+H2Gwxm9j0dZ1ZtU
qoJH0L9E05sGfQzEo37LLrxzFNXQT52smWKAb1YUklH9LMMA37w1c1/UG8tD
SOut3tWUG3i+zz8e8fNIPDLTSPgmpzqCjhmIep4rYqCFNrUvCv6jqCHodawy
Xi8x/bP2zzXT5qp4vbcja90hexqhOULV5tnmOMRYX+zlyU8lvEu8VMpfGIfW
GkR/sO4cQdwVyhHf/jDAP9uvSgjfuY0B/vmUXHycu5gq2s77j0tFaBSt0c1E
v/B6MFp2/Xd+nQmCXPGvTVeMEVLeUrbLuZFGUNHLSCpuiUWfPv4QqtxDIRzL
+BcgEhqPXg3eEaG4jaAOuR/3L3cw0PF+2zszP0aRuEORsv4MA/y0gIJ4yw85
Bvjp6K5+ylzOQXTrtKfchB+FUPV8F/+wbDw6bsGSrC09gl4rNVo/+sJA+732
lkY7jCKGxh6zbHw/P0if+ajjg9fTvXpe1/ni0F8nRsTdshH0we0Gh9AvBrpw
5qWSicgYMngslP2HxoA8lsLK74TxGFXUldCW4/eeQuhn39rsvioefSzbOHhV
YxTpil38KILfL6avjuP5d8xulTo6aW77SImTQoj9y3fJqiYeVad/Nfr0YgRJ
Ck1aaPczwFvvONDUki7NQN92n0yoiBlFKbX87bl4fbZ1n3Kt3tgIOs1I2v8J
71eZnlpIo49zG14vG5dVSBzspRByfvOy9hLjUJnljID92lGkL13Z9Az/e2Y+
iwBRLOxD0RFU6X9+bvQghaCk30A4ezceRblnhI5fH0H2oXMdka0MyGspu2jS
PI3fx7Y6uboay1H0MIFBcMXnx8xjEZmfNpG4qop+u9o/f5NNIWi+GHYjzMch
c/+j7+YfjSJV2W4Vd/w8ML11IL9SQ95+BhIstTlsSh1BhRMirYIMBgouWr1q
9bZRVOn4MkMX35/0J443f9SPorWG+R/T8PPH9Nf72Ywc9uL1OTOPhb3v44j3
v4PIsKlR8cBufH2471hZ5jGQhHPceAv/BMH3PMHdw1QdtW4OoSW9GUG5ZwpM
ivH+jumzJU6kJMji9bBEr2H0k6RRdD6vqkYJr0eYHtue/E/nhTj4U4Kj62Vh
97/l4LFTrE9z/rlZCR77eJ4S/8WJWvDYK8y/WnBaNYHHPpVBG/nq1goe+83J
53nPHrSDx/7Z+2lx/2gneGwe4VVu6mPd4LHF7KY5ki71gMeO/Egf1jbrBY9t
ImvFm3K6Dzz2nhV6f6O3k8BjE8pSCneWL+fN80+liG2IJoPH5tarrZ+yooDH
3n56xltoFxU8trc8W9PVMip47EGWK+s5dtHAY6dK+Fj7+9DAY2fFqGX6ldDA
Y4/cVm0TWkUHj32OdK2gT5cOHtvmy+BDtud08NhXh0K1jEeX81mEztzg5Jdc
zmep9Q16brBrOZ9l86V5iycTdPDYjZ72g3bOdPDYrwVUd9hl0cBj720zSH00
SQWPbfbj60KVERU8tlONQYshlQIe+5w5e59WGgU8dppShlpTxLLHbtFI6U33
pIDH/ltYLKdxcjlvnrNL/Hze6HLefPi79vV5FmTw2Gc+2ElH55LAY++Y/32k
hd4HHrs17BjJ3q0XPPa5zxeOdhOJ4LHnTq4r/yPeDR47ZXf2pwmVTvDYMtM1
9urZP8Fj//731WrTcAt47Jeck1uDBxvBY3euaNdsjK4Bj512z7RUUL0CPDb7
08N/RW3KwGPzl+/kWne+Ajz2r8gQbbvL1eCxJ1W8T5gUNYC/dn3JtVKb+ydK
Dzcu1CMPEuJjWT0NazrAYxfwpRqXLXWBx/ZJ2bH/VBYRPPa2wgWfy/Qe8Ncv
jnXZC1b1gb9WPnp/TMCFBP5696Up6X+yZPDWgUeH73fXUcBb9zaaBOy7R4V8
+0B7qc2yi1TkZfQq6++FZoL7kyK/x6Y08NjbA26330qkga8WMbszN/eDDr66
K0lC6cnafvDVVbYTrmEKy3kye9dsbHbe2A++WtRitPxXLh189emDe34cFqKD
p24XeclFe0EFTy25d0F82wYqeOqnVpRKq28U8NR1nwUz5eIo4Kkz2nbs2xxE
gbyZc5kXbjNsKZA3U9LSzJsgSUEcr9ozAnX70PG9nYfZ0snoNYVfyGiQhNhp
6v7fecio1G1O6cmdAbTVfuzeBpUu8NYNgbYlRuwd4KnnfjtqoGf14KntVqgb
+chVgaeO5O7ZJNlXBp660zQ3+QdfBXhqocm6mw8Nq8BTP7UtExrUqwc//bCd
RaJeqw2x8WgZ8ysOEZIt61YRdnWApy5/2mTj5NUFntpvTy5rsSERPHXakr7m
p6Qe8NMCt7crB4X2gZ/ubHvjVKBLAj/9+PMGbrMZEnjpLWtvDtyJpYCXNni9
J8bHhAp5/5f3CWc5U6hot3rs1HnOFsLKbm++tVo08NQLS0f0jB/TwEeHBBw+
nviBDj5a7queufEiHXy09pRBWMDO5TydQL3WlK1S/eCj/01GTa/8SQcffVrz
imqyNh08tJNIru7Ocip46C6tM3HOe6ngoUnxI3VLjRTw0LF1X6W7EingoTcP
VG9kf0iBvJ2DCiPuzS4UyNsRtjyTLXeQgmys2UVT3vaid6X6sUN1ZET7M7B0
J4aEau03mEaokFGsDWvSebkBVBPC+Vf6Yxd4aZO7z2w2JXeAh5bzqpoqFGoE
D/3noloL+Ww1eOi+RmVdN/dy8NB5lL33DOorwEMf+HBM2S0Gj19817YFRgwS
xvYeWTFs3gn+2b9D3M7Bqxv881QN+4YNa3vAN3vqys7+Xk0Cryy9Ntmt6x8F
+gw0Kvezv0qiIkkD0fF441ZC9J7rXQsbaOCRQ3aZsZZ00MEjrw657fVAuB88
cs/YvJnm7n7oM+h8/mSNG1s/9BnYz7TxnHlGB4+8Wc3plrcHFTxyXoXx58Nz
FPDIna3KhKIsCnjkV0r3pl4+pUCekNHHm6nBvhTIEzqhucGu6SIFyd7zSDQ0
6UFySXZmUWso4I0FJ26x83DXgTfWbjV+yiNVCd64UkWPOv6oDLzxQFT0vRdL
5eCNxWQnR2e7K8EbB3PMZXPF14EvDrzRa1bZ04r21qkm3To/RBj5J9AVQGwH
b6zMPiBGUuoCb5xienXeZhsRvPFjrjtKwr494Iu/Bgn4dDv0gS8mun9+r3OA
BL5YmsfbyrWXBJ5YWm/w7PQ9CnjiJ4+KTAo0qNDXMLprz9TWVipakyvEz23R
QpAr2mtSrEIDb+wsV1T67wEN/HDbTGBoWxId/PBZgdh03j908MNXHc4I8u1Y
zkOi5/69US7TD364pyqJV4FKBz98rPuIfM8FOnhhVpuKJyu6qeCF9ZSVBQ9p
UcELkzrce+I7KeCFxfZ8+UJOoYAX/oYE714Lo0Be0v4uhdi/tyiQl0TW+erB
r01BUcfEDJRMetGOldx3PvWQ0f2lM9MRTiT0TaslsU6PjFj71pw/snoAue/O
NP042AWe+ALLVlajiQ7wwk5vvfQ/32sEL2xlnmbGMVUNXrhh1dOQgbZy8MLZ
oizu3uEV4IVL1F6syZmpRvcazR2H8gYJBhvMc2wEO8EHH9eXJXUd6QYfrOfM
I69AJoL/3ZibaCcw1Aeed3pBx6imnwJ9FDy1bgE5j6lIs7+vJjS1leC+g2sF
nZMGXlfgCc9hl3o6eN3t10RlzPn7weuWX9G88QC/v8w+im/IyXl2XT/0Ufj4
hc3XvKGD1109xu48GkIFr2ta3/ZdhZ0KXtdHNW7Dz68U8Lo/KvJuHoyhQB7U
ZsPzr68HUCAPyv3NqWa1KxTUu0N41+YVPcj4kmDtvBAFPO5rrVblrw114HFP
bP999/vrSvC4pkJBow3pZeBxjWnXzojvqgCP238zYvXNn1XgXzMnh/QlWPvB
v1pF5ohM4/U3s+/i1hkjCXexfvCvqz4OJrdKUMG/aghZ5I9XUiBfqlj63yfr
lxTIlwrw+jSSFExBoftZhr/nd6Jbzw3YhW5QkM6d81ofzhDRra19ar67KZA/
leff2ixdWAU+9vFIhgavVDn42LAn2tJKmyvBr5pxpLPvx8fH7MtI5v8XLYnX
Y8y+jONy8X60eTrkVYWcLdko/JEC+VT3rvC7n7lLQQ2s0VlP5rvQ7M0iyyEj
CuRVbY9y7Az9WAHedbC/dJTVswy86/uAO3pr5svBu+rROh//eVMJ3vW6RTQt
U7sOfOuS35SvWForqpbLOf72xhChUtqk6tGXdvCuvsrqr9X5usC7un3EG112
InjXwqjHjnaOPeBbhUNzxveb94FvZS/8d9pxNwl8q2XXVcvdzSTwrNHvvej3
8fzO9Kw9N7rshvZToc/DK+z92f5aKmI4/9xmE9pCCDGvUaIq0sC7yj6fv9gQ
QAO/+pi66Ovwkg5+decTMbtvk3Twqxy2fj8OSy/na3WKotWP8HqH6Vf9nabm
vw7Rwa+ufW/ElWxDB69Kbv3zrIROBa/6Us0v5bMeFbwq+jhqdauXAl71SrPH
eP8bCnjV3ZVVUbHhFMjfUs7rFxzxoED+Fu9Y3ETdcQqSU30/7iXfiyrMdbdZ
08nIeHXQeOxFEmprUKloNCYj1bhH+3ZP9iOh0x6eQqzd4Fmvb+a3vivQCV6V
rTN7/+asRvCqD9XFm9I1a8CrFqm7b7/HVQFeteS+wPVcpwrwqh1D/Dsi0quR
4O7uDZvqBgmSk2of1vzqAJ96tKHkfaZYN/hUm9A4RUI1Efyp66poq7qOPvCk
ipfarp3rokBfSdDBe7vcH1BR88dvqv71rYSY4le7olbRwIsSfUle2lV08KK+
bAny/41/TC8aIiEbsQWPj8y+kgMqm3rMBPqhr8SBUWdB+0gHLzq2yuCIbRQV
vOgpGu3qAjcVvGhowxHHzcUU8KKVhVf5s55TIF/MWnk8vfk+BfLFbDPaUkRt
KCjPe8jFt5WISO12ok+2UMCDbvbdzvFWsR48qINaMYfAQCV40NyQNjqtrAw8
6MZXvPPOYhXgQZ1Zvuc5RFaBvzTXLHU2YekHf9mqcd+wUK4f+lCkZduv3dvW
D/5yYlZUPGknFfzl5Q0/BLNrKZBX5pN0q0Q0gQJ5Zd+nIkraQijou/eHxgeP
O1HMMLtPkBMFiTfJhqyXJqJK9Y3zP/dRIM/M2GmNQQB7NfjMYzbSGX9PlIPP
PPX3zbuzfyrAT4r22hXfFu2HPhXPh+mXVuH7x+xT4aNGl8vh82Pmnz3e/Xlg
+DMF8s7sgn+EjeH1FJueVpxpSxda4Eh4e9eUAvlnwl2FqYcHKsBbdoRz2M75
l4G3lEj58mX36groXyl3Eb9Gw+sjZv9K/40m8o/t/ZCPdulezmhPEgU85a2D
R4emksrBU+bcE/Ea/FAB/SvNb1/1W+PzYfavHDtaxhrF1Q8+Mo8cbkaNLgMf
ac2m+d5GswL6Vzg+ZJn+k8frNYedx9sVklBrRo7n9KZ+8JCRd7QVRFaWQ/9K
XeypZm3880zvOHPY15nPqQy846OF8S8ljHLwjjOST/X/PKoE73h+bf98kEgd
+MYdG0eVx8Jb0VPilOg3jyFCnipDLfJFO3jH92tmGwr/dYJ31LCKWIrE+zKm
dzxtKsr9xKYHfGPVQ3bpfpM+8I2iZilJq+RI4Bv5GgPXydeSwDM2z0t0FV6n
gGf07bN19VGkQt+LGOdSxpEq/P42ZKetT2wh5O+OTvqjQAPvWFtzYTrDjwZ+
8e4n/8b8ODr4xePFRu2h43Twi2lyV8c1pZbz2s6eop50wu8T0y/q7N1blDlK
B784vp58m92eDl5xTVvylu0jVPCKZ0rffzl8hgpe0eSweDydRAGv2LuxpH/D
Owp4RduHEuJ7IyiQ5xawWDZXc5sCeW47Stbu3KlHQQxF50IxkV40KKpczDNE
RsWBiSOvzpKQxdMR0+YLZGQ0e1JCpr8fBTdoJrDxd4NnJKyee7R6eyd4xdO/
muUM6hvBK5pcI/goOtSAV8y0GPxzQroCvOKwlPjBK9YV4BWtjjQoL+JxlNy3
cWhv+yAhrGdP2sXeDvCJvk57fQvXdYNPvLmRohREIII/5EzNG/zV2Aee8GJz
34xwKwX6bDSnVvm1+1NRbJTi77uUVkL4U0sp8xU08ILzjvIHE8rp4AXl2y7v
0eHpBy8oU/7Q7ydebzH7bNyyJiMfC/ZDn42WXA//SCYdvKBlOENS+jkVvGB+
qJNWOB8VvCBvLK/oNwIFvOCJ/eiKUywF8ur2jwYGeQVSIK/O4lNMeMhVCpJ6
2/Q0s5iIItcfMEnZSgEPaCrWNLnFqh48oF3Cknw1ZxV4QJvSO5aOzWXgAT0W
qA2xGyvAAz69fH/DZ5cq8Hevr8zWXF2ig7/jjrN3FsfPL7Mvx7igLahRoh/8
nZVY7qUQBSr4O/IjjpCOegrk35HJiscYeD5g5t85jWXY3wjF639x1tLr3p1I
ht+ykOCM38/59RlavEQ02aTU4atCgXy8VBsp/r27qsHnRcbJL+y7XL7cv7Pd
dOQyuQL8HK/Sb1EWPL4x+3YseWU3KeLxk9m341b8dLBxVT/k6WWvdDUwzKRA
fp55fFxsgQ9+fiZiww4RupBE6nnOHRcokKcXsDQRm8haCd7utFVayvSDMvB2
rJulhAdYKqCfR2gyjzCH98/Mfp7r989KUvFnZt7ekXNZDX3JFPB0HTSJwk0F
5eDp9tVzzyq+qoB+Hr1AZ1l3fD7Mfp77P2ILyrn7wcel9fQ5aieUgY8LTz3p
tV6lAvp5dqo2LIbj8X2D7mPdYb/XKGWJtSF7cz94uPVZsypP+cuhn0elXXpf
Nv55pndzWi/xkcutDLxb1do1/QaL5dDHYz4cm/9Oth+8277r09MV9yqgn2fE
p+KFDT5+pl/jOCN/7Xx+Gfi1XPXD0sfxeMHs54kffrH/HN6vMft41p1um3uC
30emP1PNDbk9uqYC+nhu/QlaX4+/n9nHk9PT/MMFr8+Z/mz/nu2LL4oroJ/H
pKbutSE+HqY3U+MeFx+KLIM+Hluus1d18Pcx8/LWaz+WejVZBn08lmYejj/x
8TH92b1rfXuFrpeBP7ursqM/bqYc/NmpMpedf3wqwZ+dsXzE/nt1HXizr5a2
fK1+rcgzKzKwznuI8Km08o7Ak3bwZyXTrTaefzrBn70tPq46PNUN/iy2gHxh
u2UPeLPX3J/UDxv2gTeT/siorZMhgTcbPCHYL1dFAl82IeFheM6WAr6sVWj3
bA1+v5n9P/Vxfsiggopk76aMD75vIZwRXuy6K08Df5Y/M5Ye40tb7v/ZkyNv
EUsHT9bRMsntPEYHT0YqHvZ6L7mc7xduu2+ajMcbpidTPCYULvHf/Pp/T9ZX
Lr0n/wYd/JiY0R3LrjEq+LF2zcx2fwMq+LErq7/u30yhgB/bVEi1zMDzJdOP
bVKVfe2D50tm/t/OhGz7Q54UyP/zucfzSUWfgswUDJN+retFHl47H1KHyeh3
hbzda30SirM6rHrKjIws3yrESpH7kUa4zN5/wt3gyz7HmojNKXSCH/Pwvrz9
Rncj+DHBfbqWvn414Md2TYr3fNpbAX7s3x8piXzzCvBj7wblive6VqPy3Nyz
asRBgpah7FvWtg7wYmLfRkdK2LvBi82ZsSqP5BPBgxm4V8murusD3/VrLb14
rpEC/UbbTumkB/lS0T+2kbo7o62ENSxaiaX/qOC31lxti9Uvo4PfCij8/sUe
jz9Mv3VbqNjrC35fmP1Gupcntz8W6od+o93lVg7j2XTwW6JGuhvvx1HBb90w
z/lyjp8Kfsvg3u3fkSUU8Fuh07Kh9Xi+ZOYb/iaZmNXi+ZKZb0jc4xmgjp/f
i0Xab2oziUhmijVrmwQFfNatcSnrrjv14LPsT4trSG2qAp91+HJjQlZHGfgs
mff6qgobKsBntb59V/ryShV4qAGepA3m/+jgoWSOku414/0/sz9pfFWb4G38
fDM9lJhiwIL3Hip4qMsb5naONlAgL5GPhW+tTSIF8hJ17Aq/f8Xzpb3Lp8OX
bnYi4vPXU/oueD/FG1R8iZWIWEV+6LQfoECeYi1Z8eYatWrwUgdyviQZ2ZeD
l7Io2fPwWnsFeKY1fftqtUT6oX9JfGl9kSoeD5n9S9vTo2a3sfZD/mLFdSNO
ziwK5C12pQQlbPOloE9qOhzy2V0odzo3fwHPl8z8Reo1iY3nNlSCf3p40qvU
ObQM/NPfc2Z631dUQF8TQZ515D6eH5l9TW9fJlcZ4v0UM5/xo9bebxYpFPBN
Bq4Xk3wry8E33XJjVzkXXQF9TZxu52vv4fNh9jUl+d4XJOH1HdMr+Xru/RCS
WgZeKeWW4RVbxQroazrWr7FWA89/rw+U1t6Ue40evd11+9mWfvBJTQ0tRWdF
y6Gv6YZbZP8o/nmmP3q/MFX3wL0M/NHXY5rCCgvl0M8Uv2rMbBN+Xpj+yG39
+N4x9wroa1JtZjzTwMfP9ER9Y75vXhHKwBPZTqZG9GyrgL6mvGd8OmvwfMTs
Z9IaV0uvwe8j0wMNW09TfdgroJ9pi1LrYVM8XzL7mU5KN5/dhPerTA90q0P8
0I+cCuhrEviao3UJHw/T/9yZKUY2T8ugnynvor/FNvx9zHzFJovraRdny6Cf
KWaBKs6Drw/TAxUYfDob5VCG1h54p/32fiThc2r9eCXePzH9T5uRiAH39Qro
Z+pyvRA8h38/Zwyv5uaCQJSyVf22DD4epu8RII/QuVZVoOQQkYJf1Fjkndvo
ZI+fJ2a/0nSNhbdFbBnakuUfYZNgTzBZop/twsezyrjvMLu0I4pTeJYcgn8f
0+uwPWkpyJKpQBEf84WyhQMJl19VxCvj+8X0OozgXcUe5RXowUtTVkedCWQg
k5tAHihDxzIML1z8GYnkStYWv8T3g+lzNO/xbIi1LQOfcz87VLkkOwt8Trba
SODmXzngc17nzO5R+lYEPkeTWJiSZ/4DfM5vkTNq0psql/MSO6JWqefVgs/x
LkjPbOJsBJ8jyyVlM3qpCXyOiclbD0OnZvA53vU213IetoDPCdVe8t4r1gY+
x/mWhvmP3z/B56jGh1x5SesAn3OSvqteidwFPmfs3ei2Ulsi+JxGYyGtCx96
wOdYzLzoaf3QCz5HYJJedC+mD3xO8Y8i1exLJPA5lxadN6DF5f4k5cZ/W54X
Lvcntc5cLB+/QwGfo2DIZR0qQwWfIxnVahfQQgWfo27ucdfOhAY+p1zhqPRC
Ng18zimhxQOkKRr4nPDarRNPBJZ9zmJEeN3WfXTwOae7Xtm9uUIHnxNGi4o/
FUMHn0Pct9Kz8DsdfM6A9Klo72908DmRtO6E1WF08Dl/7Wxr5GTo4HMEWD+o
xBBo4HN+b3K0VL5GA59TmC/A9uUYDXyOOrdrge5JGvicZNIV1aHzNPA5l8Qz
+Fbq0sDnzPhoCZxdt9yftCBkz3Uxb7k/aWNt5RE3k+X+pByhfAJX9XJ/Um7d
SQ2WpeX+JI8fVt+M6CTwOT+jt4Tbr+4Dn7P/8d6eoRYi+Jy/fAuscW3d4HPi
umMLtp3IBp+jqdqciLrzwed4PdmI9rF/A5+TyvPFXSiwGnwO/eOzvQ3368Hn
DH95sLjhWyP4nDSBGK/3g03gcxQ3qouV/22GvMSCUPFNmUdbweucpFnZSq/4
CT5nME6w+NFIJ+QjXvQOPnD7Uzd4nS1tHcFzgj3gdWJ8SKerFXvB34juat7k
gNdbTH8TutDOFypMA3/z3k5B0DyUBv5mKPDEw3edNPA3XJ2WdxdZl/1Nck6X
Q44EHfINqxh7CNonlj2OxjFzhUlvOnic+OlfI3af6eBxFoQ+frOopIPHGZE7
1M/5gQ4eZ//ag58+mdPB4xCLJd5b4/eD6XHEDQJZYsJo4HECrFlFCWdp4HG2
jVVFOePnk+fC/pmD+yho3urt9TvGNMhL3LD1ZEcifh+ZeYlfi3uPiSjSIC9x
n4/LWZl+KngenfHYlP0hVPA8fX3PrfuFqJCfuEYvjc/JkQL5iTIbn8ZEe5HB
90SiESmlph7wPf4JtW/chIjge04tEZqTiFnge272l/1x184D36N/JGjuSzsB
fM/CwRmf9SZV4HsuaFsF3E2tA9+jmnywN+FaI/ieF5In/lgkN4HveanUvH3p
czPkJR4odnnJN9AC3ufitln/vw/bwPcE7RPYWnqtE/IRWfIRr69uN3ifMKfH
Hlw/iOB9Nm7p+cL41QN+513AeJG8MRX8DinWcNR8hgp+5+HMCdM3LjTwOxou
EkNCVTTwO6f2iLs/WaSB33nFrirPKUqHfENiyE4rAbTseTRGPRdfOtHB8xyb
q8hJSKGD5zHtky4ZLKeD5xk1oZLN8+ngefazdBORBx08j6rd7ZhzPHTwPMYi
9KrSFBp4nvnQfGnPizTwPNW+sgVOR2noWeiZlwm9ZFRygrfUFz+fzLzEhZHn
le54fGTmJVLtPaU7EQ3yEmle+sr35qnggQ7Ed3JkJVLBA1EJDdFqB6iQn/hW
I6CV5xUF8hP1W2XIYiVk8EGGdT8cM6x7wQeVxeQm/rxKBB90jqXDoHU2G3xQ
+eqr/TrZBWif1rN9VzuHCCEn9jWee7PshSSexW/5ZtgAeYjSVlWaZ1AL5Bme
tPxycHQdEXyPBLW11OcADXxPWbX+v5pEGvgevv4r7ZQBGvgepwEuriBuOuQR
erZ+kJjZSYc8QrHNjk89jJf9T5rBViX9UDr4H/5SXvqpAjr4n4duOx6+xveb
6X/OHpDssX5FB+9Te+q26WIHDbzP3iPmscKeNJTW8QbZjveh7wGTZ67o0ZBF
A5LfpUJG0e6vz1JO0FCQ7ObT7XjflNbdf9LHlAb5hoR7/A7e+H4z8w21FEiT
1VtpaDxgorymdgBlbrdqD3SmQt6hp1Sk8NEpCuQd7n8sPUHH+y2mL/p0d9I/
5UQP+KLHmZ9tcge6wRc53jCQifqeBb7o+e3qjSIRueCLvreo9W2oKgZfdH4g
8uLFr5Xgi7iN18Ym7akDX7Qg9cmtXLURfNGwdd3bV75N4IsCOEivxiOaIc+w
48iI0FxeC3ijrRxNQhFGbeCLIhZCF59v74T8QlG3B8Hjgt3gjeYviHssPiOC
N0pdY24V1tgDfog/+O2HeUQFP6SjuJvjO50KfmiJQJLSsqaBH/LYOC/ThNcv
TD9Ukxu4b4hBAz809JH1nP5GOuQPbnH5vevfgWVPlBV+5u86Ozp4IrG6d1tE
8fPC9ER/3hxav7+MDp6Iw+OawkgRHTzRu9c+/o7+dPBEtZyTGm2b6OCJDoRp
nb71hQae6Fy0eddxSxp4oh1j50904/GjK6n319lMMppbZ2hgc5oGeYa5CX5J
NDx+MPMMzZLWXfyqTYM8w2+v/JciWWngkWIr7x5WyKCCR1KlcprHHqNCvmGe
yD4X62wK5BueXtHXIEVa7n+7rm+7miWrF3zSD1b6n+lYIviknDMhqceeZ4NP
0jk8I37q21cknnCsI2P1MAG9EElAwjXgldK5fusWj9dDXuE1rvXO10RaIG9Q
n3wloYjUDb7ozu2Cu3kyNPBFngfPecw9o4EvOsDXJbKKTANfpN6kqNrNSYe8
wHrVT9t/bKdDXmDf1LadyqeX/ZEfayvba7wuZfojB3k/n8IcOvijeSFr1/oK
OvijWb7Sdr43dPBGY72v2jf108AbDRpfqmL401BnAeHWTHwfOt5Z6KhxioZY
Ot9tU+clI+7itDr74zRUrZGWFGxBQRULUT7i52iQP8ijGH7f24gG+YN5eq6Z
e2RpyHRx2vtj8gB6I272YNGbCnmEexT07DezUSGPsHFzLEPBiAK+6ZQKX3Jh
aA/4psqlRt5z893gm86N22xqY88G33TKKYB6gjMf/JK6HntLUxMN/JLPuaK6
rPd08EtJFrRWXryeY/ol74WSR4uZdPBJR+iqSj+f09B+vwnahrle5F9xb+cZ
vP7SHPXmulZCQuL5f4sr8PN+9mbpiXFOCuKxuHzjqSENLXbtyPh8gYqUW9vN
tfD4upbdU1vmHQ0dtvFkWOD5hOmb1reoVVarEsE31XjJhbo45qABkSD+2wWN
6NqBf9EnCct+qcmdjR5YSsf75fYND/E+sfCPvMoJZ7y+mDsaMCpGQrfFn57j
PfHfeqPtgLAFGRX2+8j64PFfa33EgmQuBWXUqO/zxe8fg42N48IiFfF2EuPZ
8P1leqdvDG+1lLU94J1+UIyV3/V2g3ea5fhamPI1C7yTTE9XQ5xaLnintMjG
7Ue1isE7cZ83Ujx6vRK8k0p048nf07XgndDotqAv2xrBO4Wo3GYvd2wC71TK
+rPioU8z5Pulsb1T63jdAv5pw1lJoohqG3inuOc6srJsnZDnt29X93u+hS7w
TwqT12p/3SOCfyrYfbDVldADnikjkRzfqUQFz7Tvit+BJCIVPJPwrNOpYDMa
eKYnvNknFr7SwDPtFxab8PxLA88knPidzUWQDnl8jKRk/jv7l33TymyPT902
dPBN22KCr3yPo4NvGrwhVj77gw6+6YSy98xP/DwwfdO8TVv/7wd08E3Gbxuz
fLfRwTcJaIvpdOXRwDdZaz60y8PzDdM3mUwf+sSP9xsLCimb0l+QkdHKNH8T
/Dww8/36QvOF+S7QIN+PXPjX7Rr+eWa+X8pPLe6oNTTwUbpObsllX6jgo8LM
XOeUTlMh72+/8ExMHoECeX8eOukb2CaX+w2fmZXebOjuBS8V6mVgeC6HCF7q
dOJS8X6HbPBSZQVWl4+e/Io21CfKnBEZJqjfFOvpblj2U+XH42rXFtRDft+d
vUNLNhwtkL9nyHMyQ7KqG7zT833cY8l4vcP0TutbNCvkHtPAO0WliRv49tDA
O0m3nbg4yk6H/LwNMbO8n6XokJ8XXTLerqy/7KGuHjoleNyXDh6qaNtHi41Z
dPBQV06mOhzB4xHTQ7mIreh7lEYH/0Svv/ytZJQG/mlLruOPzcE05JShux65
9iEbMXLZCjyvNvf0iuoukFCMkeqeCXy/Ruud6ignKKjdhtfoIh6/mHl8ke/G
P4Tj/SUzj89FelW+hjwNheW7myZGDCAGP1/2ZrzvZObziXydkZJZR4V8vhqd
uj2XLCngrX4d/GflgcclpreyncpxzGIngrdqvcXvfuh3FnirRBa1+ueJeeCp
HiUPWrnV0cBTWfDPGWe9pYOnMpd+4JOA5zOmp9JcGx5MwvMd00tVL627V/cK
j/c3vXwuNfUis+NX3r7G46/Ary+sN9NJyO0F7+F4PF67LoW4Hp0mo3WFLXfC
DGjo7r463ztH8b7kXO4DGv753sGPxzWf4OecunAr/RANvNXe7bucJPC8wPRW
fHczVK0Uc9DMisJn3BGN6Evh0WAPvJ5ieqqPt6LzovB667Ts2wuTfj3IUvz3
9WQ3PD5McZ+N4CIhtu/EgD26NBRevUZJQo+Mpk1lvF/izzYvjaXvJlLQewOB
7yvweH37chpRaoiKJi29pKfxeorprwyeucr1yvaAv5LVDTi5m9oN/orWMvrU
rzoLmZXr+g2GNiGDmLKl3Xg/wfRWc1dTH6Tg/cai8ZPc0Xu96N3jhysszWko
a050LjCAhGbpHrTX+HrdHd6wc70YFZnq8Ch/wMfD9FkL4beiH+PxlOmz7svs
8Q6rykZCdVIvlA80IrXbVYpseH/K7K+MIkt4meH7p1G9t/tjWR+6e3S12FN9
Gtrd6rpjvyQZHXi6aYc0nr/e5lBv775FQXmRwuk0vL7wFJy6X1BCReHx7zPZ
8PzK9F071o58nh/vBt81sEE5j3t7NtpRELyFU74ZnSo8XqOC36eEiCvH67f1
obfa8R+W8L93GTjGZ95KQukBpowpfH53fAI6+h2pyOA0QzkZfx/Tf1Xns6mI
yxBRu9LZCFp/IxLPyUqV/EaHfswQ8pssOTw+/2bxyzmmREIiY4YKl/H6aFtg
VXNNLQWZGb3xLcbXyyP98t4IPhrKXdAyWY3Pl+nHLnrKbNnW1Q1+7IixQ+CH
nCzwY2M8V94TN+aCHxNx2Vjbx1IMfsxX1SBfWbMS/FhDruK75z9rwY/1tFzd
rCHYCH6sa2uDcqdNE/gxq9VN3Rc8miEvL2qY3agiugU82WFry54rcm3gx4Zj
B3Ws/nRAPp5G8OrDSeNd4Ml49N/PnHclgicr15RZO5jTAz5s3POvj6ICFXxY
htfOZv4OKviwXenT/bP4ejF9WMLa9d2P8fzF9GGaG8Oidv2hgQ/7IrzVLGAD
HfLtPEViJ08qL3uxd0cfPlK3poMXO3dk3QrOWDp4MctmXvEL+P4xvViMvM3R
tBI6eDELy5SlQLw/Z3qx1GBRtXY8vjO9mKPmUbkDhTTwYukfvW3cr9LAixmb
/t1xEY+/a289+NQRSUZ+862bGk/SIC9PI4dHdhGfLzMv7/Xx4ZXf8PPDzMsj
c6jsmllLA28mWTrZHpFNBW929ulL0TYDKuTn3dp4To5SSoH8PKGQxff+M8v9
o8pezixbJnvBn6mP1BIESongz9yO6B/OuJAN/my1V5zvD4GviNf6ZPM2qWHC
7xLbtNm0ZY9G9p0g7Uishzy8dqmn4c+WmiHPzjC1wbO1sBv82Bt+Zcm4zTTw
Y70v88e1w2jgx54YxXm+6qaBHxNuNx6bZqNDHp0Dyb7qkyQd8ug+XYzQLdZd
9mVd7Wtfxt+jgy9LDz2d+u0LHXxZcxm50BWPB0xfpiD9kqKbTgdPRirXUOaf
pIEnE2P1onSF0tChVD4SxbwPuWlMTfbh+VXVYlb49G8SurR15ZVP+P4uChha
rlOjoP3Sc7J/8XzKzLczsH75YyOeb5n5dp2tM/HH8H1+J3TgaGzgAEp4ZFez
K4gKeXeLtZVlQfxUyLs71m1TP2VLAb/2rchV+yderzL9Wt+Tj+YJPETwa3wF
Q5JOA1ng19ZMr6Q8uJkHPs2Wi+2NTg0NfFqjU8wmJbwfZPo0op9JghYen5k+
jd7gy3M4jw7+jPeRp2TVaxqKtVc/yVLUiyQ5Gw+w4fXhnZt1Kz1ek9Cr8M13
AvF4el/7BqfrEBnZrnIR58Dza7Gl2Ojlw1S0RmT7CyX8vFd0VuuefkBDU28K
6jWO0MCvLZj/5vC+SAS/przksL6HPwct3TTuMPFsRHeuKRW7FtLBp235a/56
E57Pigwj7m5z6EE52S33m9zx+zMxqWLJQkJWSTbXq/F8ytCT2rNDg4zKB+lX
1fDnW7QDBWnP8Pwa7f2gBM/3X8MWdLj6qMjEuaIqD99fpmfzC1Hs+KbaA57t
0lJs1016N3g2ma0J5qHlWaiMvfRGsnsTapyOEmvD8z3Tr7FMsl+sxMdbecr0
fsT1XuQjcGuszYKGRL33z4R6ktDjoWtCBHy9ioVsn84IUNGDm5X2Vfj6ML0b
qTpDR/MREbxbfFHP4+ufs5GYWkmvj0Qjam9JMSXn0qFftvJOqfszfP94fsy+
Nfjchw7mpGldweNNjHG41CERMuKS7FhficeX/IVynkvXKYhw1OSZH57vvmpq
TybkUNFM2oxxDZ4fmV6OwWpGlvnTDV5ubaa/sv+GbBS2wMJVJtyMbvMINUri
98k+WEbIhacPPWPjcdiBn/+ua1d4rKpJ6G/50L0efH6FGT81aq2peB9qqzuN
v4/p6W6US/j82UNEfW9Gm+SbGlGZu+mrA3j8ZfbXWjIOzy/h8fncP6sXIrIk
VM3250cePv69telXGd8oqGDdcal3+HrldWa+cGOnIeowrycrPl+mx4uQV0uz
JnaDx8sqYJuKL85CT0KyjoqeakKOXPL2MXg/Pe5r/+upDQmVTOp6z+DjVXNZ
a/d9BRX11x3qWsK/n+n1GujKBVK+eN3vutvn0pNmpJDJ6syGzz85675W3IM+
dG6hPnYrXp/ZXSgV02Ejo5Zgl6Vd+HgPvRwqvf6aihrHjsSy4evD9H0xs5pq
gSxE8H3RioerOBaz0MV7v6mHfjUhSlWexQK+nyu9sr/k03uR84NfQ7fx9Uu/
EcNxI4eEdN+v+vcZH+8RDi+h6DNUtP3ZUdco/DxvGOCRbOGfQHbjV9urtInQ
t6s2U1/PjZ9PyRnZ68UbSOgt6ezLGLzekj42qbzFmIxENmvpcOvh+ebczcdn
0ikofd37eTV8/ipK51zUpqjocMVbAjs+P6YvfKj5zKe9KQvNBLQ8lUtoQj8P
/u17iN9HPY+Vi75hJHSZEvT5v/HgSNGPEjkZKtopbLgUiX8fs5/XQsf/rjQ+
v1tNDtxru/qQuI2nygL+/hinFfRVvhT0Tuz0BjV8Pkx/WHq18vfcUDf6dptP
UV+jGUnb3SnXw9e/NfqFl+z+PlQQIDv5E483a6zlBc73ktBA3uNyRTw+HzJQ
vMHiSUXtxMVRWXz9Gr7lnoxdwOPJ9LoP677TkeGVR3ZhgS3oQMC8lBH+zKfW
f/hVOwWxxLH2tvx3/vfWVaVtwut2nttKq/DxMT2jTPn6yN72bvCM5AWdkS9Z
WeAZW7ZvF15cnQuesfnyoS3ppCLwjHmyzXfkFSrBM4pWXjF2qKgFz5hxNGSQ
k7cRPKOfoGe9pWUTeMYiZdRo4NoMeXoPLu7vOxLZAr7Ruu1TRo1UG3jGyLgD
RixjHZCfd2z/c9bRgS7wjd7zuo/CbxDBN+rqi79N/NIDXjFsYMWUmRwVvOIQ
u8+W2jYqeMXc+zmKivh+Mb2iSvGw4ulcGnjFqmjtgcBpGnjFvMexF9fi9Rsz
/66wTcA8b9+yX1zgFbzjakUHv3iT7+xJued08ItiAZx1XHh8YPrFkrTzE/x4
fc70i7eT1BrLHtLBL570/M7qt50OflEj2fPLYBEN/GKD9S2asS0N/GJw8H2h
IPz8CAjPzd14REbCHsNXH+LxhZmnd1P3gOIUfj6YeXqreK2q7PH7xMzTG9Uq
TpDkoYF/5L3xwfkvHmeZ/jH7U+auFCMq5OsJxnD8vVVBgXy9gZ3S7hrzy/3J
9zmPHdOe6wUPefCIz8mlGiJ4SA5u14WBs9ngIRO7ch6zMPLRo0/JqaGyw4Ta
q9yPH8Qs+0jaRs01d57UQ14eq9h1E/n5Zsi763gs15Wa0w2e8YNfNXqG3wOm
ZywLcPVrfkgDz3hk3MU/uYsGnnF9B3Hfbbx+Y+bVBdckxe3F6zdmXl2R7GXW
lbrL3lHr/E2b8rt08I6SaluPC+L1G9M7Dtw4RrDD7zvTOz6ScaDJZtDBN/Zq
ZDoV/qKBbxRLX+Fy4BFeV7+eLs8y6kMLBncCT52loRuJgTFnx0gIsffPR+D7
y5ZXlp6iSkHPtc/o5uPxmZl/p6T5V/8SXr8x8++qjo+47NlDQznlwsXPfAeQ
64non9kPqJCHd8P484bcDVTIwwtKyRRF9hTwlGn/Pu67X9kDnnKPSPEqLn4i
eMrdPa3znJQs8JSHHWjXfS7mgZdsKxY4plBNAy85Rqg57pxKBy8psgd9EsTj
KdNLDj5R9KjH6zemh8xsUZjRSaahFdck97V86UXh1Vq7S/D67VPWeV/PFySU
zZEc54XH67DBPoM1NDIS2K7+uxRfL7PbxxINVfB5zpu9uYif90NnO2p//vf/
/ayJm+P+7++///eUlxcM22QsieAp9XJ9q+isOcg/Q2L2jmMjqnz2+gylgA5e
sm2flpA5ni+mr62OOGjZg8x9StcPetCQNrH03DNGH+KPet8riMdbubAvH2UP
k5H8bq1LfHj9djfoPav6YwpKO/DlegIeb86nSC0sdlJRqIfDpk34eJm+MiaA
70OmRg/4SnfT1ISn/d3gK2srbpeGl2Yhjx0rrP0cmpDKX03rQDw/Mj3l6qy8
MtMiOpLXO2RvebkXjbYNU8Mv4/17calbmBsJXbxO2V2Hr5eZ/OMTw+vwOj5E
iqMdXx+mvzxje3yLaBQR/GUau5Lo+ZRslHT70VLKxka0jUVg7CRevzH7sS2r
BW59wffPlUAMl3rTh75X7O1qxuNNbbRo8pENZHTzujLHc7ye+P5KxXTKmoI0
t90KPYPns/Pnb6Q8+Yzn1y8v3u4yooHfJPkJzaoxusFvHqj10jrInY00Nh9h
SVrXjMJyvZtF8PvUfH/tP83VfYh7QKe2ED//PO8nH9qUkRCXmtOrZnx+F0uX
Zoot8Pw/9cpIFF9vpu8s0VOUtFAmoivk/N8G5Y0ouuP9plICHfq3RVS2OWni
9VXonZ8Rq6RIKJEf7/b+Ww85bvkSVkhBQ6PC7i/x9To3STxru5KG5si3uALx
+TJ96LsHuk5BPd3gQ00sSSaJhVlI5/3k4TmtJrSzSFr4OP79237MOsZcJqGH
LqXPWPH7THqwTyx7noK8ac/duPHzzfSjRc0dSwtu2agzyv7WweBmVLXC2HEb
Pv81n213OtztQ33c53Y/xuubl/FnXh5jIaNsR+MYHny8xKz1nmYvqOhzzTNJ
XXx9mN7U59aiyYvVRPCm2YY7El7PZKF1CfJdIgNNSNwjwem/v7/Zusc8D+3u
RYO2ssd58PUjfZQKcvpMQhaSIZvf4OvbuyW5NlgPPz/u9+4W4v9u5o2e7+WZ
QPUh1Um3dInQFz6jnKl5Bj+fJm7xZm94ScikKZqPjueb88He2eJnyOhEnlRr
C34/zOZp3QOpeP32ua9X/L/16wnf7XvH8X60mOfMA3x+TO+qsYt/z93aLJSW
su7hmmdNSGC4Z8IMv48++eFeAcEktMtqRU3Uf8fXMuomJklF3xU+xybg38fs
F5970nJHA58fse70dE9DH2owJrw/po/nf34XhVgvClLKm8vZgM+H6WHVwvfE
0ka6kWus/o6dKs1IlZ9aqYGvv2qUj+WCXB9StL5y6jrefxxJLYi82ElCVS/d
zP/7+wTx2gWJaVcqyv1q5O6In3eD+QBHwq9GdNLIUjYWz/fsAVUW9ndaEPnL
mbESvH4ToZo82NdMQQoePxX+2091PFW5+0IQHxdrX5k/Hk+YvlZTfMu5FZ3d
0F8e//HJ1rS8LBSiLeDwwoSEJGSuqu7B3y+eExQc+4uCeLfStrLj54npb6mO
0nddrLKR2k+a5Qxehy3G/b1+Hp/PtDNF6LY2BV1QVzixE88fzPy9005OQTVr
iOgWObX8Z3MTetHqGOGCr9+N7/ceh5m0on0Rfsee4/FAycnsqkJFL8o7ekFT
Dx//Fr2/yo4aVMR3YCJyLf5cyhXzReooGV1KDHJxxPdbxKPl8UYaFUnabfUw
xvtXpvcN8iyfC6zE8/BAkEe5bxN6rJOxbhW+vymNqz6zlzcjeQXX2574+9+W
C373LehDmclbP07h+/fJ1Ki03ImCDjqoJGbi6830wbzByVXrf3cjbtqDpwYe
E4TbtIvux7Zko9QdP8MvN5AQWf+KxSB+XkSjMx512lGR3p7d6rX4398oU9ff
YduC9vL+84r5L09L5uBmS7zOeajo0ZKJzyfhAjWrgZWKTuX2HfmNP4u82vWP
7dAE4Vscaff+R9lIWWR/oiYXGU0mhdno4/cxPqhk3e03VDSxbmDddzzeMT2y
O+/Z3zdWZqO3ZjljZvNNKI9Tt/2//Vnt6d4PLsITiO0sK9dmNSL65ZHv3iZC
QrMT3Dv18Pujl81ytOAzBWU43Np4GX//0g6aXELWBMFh6/t3h9uz0Mb9bnfv
PSGhZxbrYjzw+b1MjeVSlaeiJytnrtz/7/nS5+8IH29GWtlrWfrx9Y2oC4t1
CMT7F+9Nihb4+WfmE6ZxF8l1DnajG3Ffo86p9yGt5F8RGni/ovtgeJcbexN6
8JbT5+p3OnjodfbstYU/u8FDh6qn1K0ZsQIPHby1U280wxE8dO4X5XeqYn7g
of9Vf1p66BgJHvr07IXgtS4J4KGVHmReXNmTBh5aLcP/TX3dF/DQn4K845In
c5fzCiWv3OwTKwAPXfbis+p7sULw0KdVMu9KNheAh+bi2ry6pasAPLRFxjeH
czNFyx56cViaNvkNPLTZiNeRQeNy8NB860WNWIk14KGL9ftTI/Y0gocWlVhk
ScPzANND254vvTHA3QQeuvDPqZHrnxvAQys0b7Uy3VMLHjrlagPLhH4VeOg2
8er8E1sqwUPnP74Xmry1Cjw01wFNjpXmteChTT+OuhDTG8FDO232sF8/1wIe
+sC2DSoT4u3goVdIzHzbua0LPLQs+VE0iysRPDTrx6OfXskv98c/XJfO+D69
3B8vvyioLDay3B+vNty7jo11Oa/Q6auLj7ADFTz0MT9hU6vBZQ+dsOs4v0di
P3joswN/LkZrDYKHXhGy9t6u3iHw0GEXObeEfBoBD/3VcL/9uvQx8NC3z7xa
+XX3JHjoUa7Qf/W9v8BDKygYOBhmT4GHXsm2RtC/+Q94aEcfqrZyygx46Ntr
tHOb2GbBQ3esDyq5MzwLHtp0bnNkqvoceOhstsLcKOM58NA+brve54ddBQ+t
OHPTZX+nO3hoEn+JK+VQCPTHm8VWZ+1mfQ4+ulrb4+4ZyxTw0N9ZorYeC80G
Dz0StXjrYEM+eOiIK42l9e0F4KEv7GB0nOIpBA+tzelwlfyhAPILRVYkiy5G
FIKPdrGyq6tUKgEfLWTg+Hxy/gf4aMamy52SwlXgoyfsq5C8ST3kGY7qXHnW
Qm6EPMNtf+syBg2bIM/w2S/f3Y4hjdAvf+jBxKrjf+ugX75v6tgf5+fV0C/P
/VRG28CzEvy1lP+/s0P6leCvRfPkXPM9q8FfT+UHe2am14O/PpzvvEv4WDN4
6zEVWb3hrA7w1vaWb2qLzLrBW++8wzkgc74HfHWMkoa5jcNyf/zL9LamMWcy
+OeAS/y7GYmj4J/jZtmmHk2Og382zKZcz1yYBN8s7W4+pV32F3wzT0Henmbr
5X74mfPTQQcfzYJ3LjM8qFS8dQ68c9SVz5qyZ+fAO4+snZCP9bMG7zzhxesY
b3YTvLOjiFHszvb70A///Mv4Qd7Ip+CfbQJOvU3++Rq88+Sz+yHZSlngnf8c
Z/tmOpEH3nlsyGxg7GEBeGf/cP9X/423TO9Myudiv5BfAPmGhQprZge2FYJ/
lu3s5STxEcA/1467Njwf/g7++d2uTVNBWRXgn/+oXd1eK1EHeYdPsv7Z2j1p
hLzDIMFEk+PnmiDv8LpvsrZtSyP0x+/2MJFW7Fjuj99iNjt341IN9Mdff0Pr
CmivBF99TGBB+4FYJfjqp9vZzqcWVYGvTldUEVZzrwNffa5y9+VHt5rAU2/0
PCkhMNEOntq2ZahJpbwLPPWrw6EalUNE8NNPI/5R6xWX++HNjxJsxuTI4JvT
TtQVOkuPgm+eJLYJJx8fB9/8I0guYPLJJPjl0GsOnOX6f8EvHyg9k6DPudz/
3niuSKv15HL/u7S2c1ox5xx4Zm6HRZsM3TnwzH4LPozUCTvwzCYyMQrvnLyh
//3PJYpzxuFw6H9XFdyrs7UyHvIPGY32MTbVOZB/WOAQdLQn+Ct4ZwnXoPO5
7IXQ/36D/ik441cB5CPKrf2mP5NbAP3vHNTDQcEyRdD/vnfz0nWN1d8gP7Hw
esaNX97VkJ84oE/3T7rRAPmJezYT5z6INqHya8lukR+aCM9X+1dqHGqCfvjx
Sb2fbfsaoR9evr5QZ4KvDvrhI8ibqLIDVdAPP93+2qjzUCXkMf7IYFuiJlaC
1549OvjEGT9vTH9NDyYIzjt1gm8uZKzovCoxBl6Zm0RMnN0/A/3sPTofCtO+
Lvez31Y2G7UsmQXPHObryLZLaQ48s4d9tI6j0Rx4ZtKWw5+j+K3BM4ePK+/+
6OMMnpkeePVz06g/9LP3UNeHTTOegG9u1/KJkXmRCJ551cMacrx/JnjmePU/
5T4388Az84uY9LuaFoBnVoqp2ETaWgieOfxFjQt3WQHkJ4ZNrV9/fb4AfLMU
58ZYS89i8M0PVnoFu1z/Dr75rnjE+c2rK8A3f9jivqHPtxbyFPlMP4+/tGqE
PMXMmIFdE6ebIE+x/O8Py9TfjdDffmgurnatTgP0t8/f7eJE5TXQ3/554ylB
HZ4q8NPFXK6XCSKV4KcvKH4/cv5aFfjpldIONpKDteCn0/j5PH/wNoGXLmoO
He180A5e+vFdQ8UTbl3gpdO+/3w0/ZEIPnpjQBzHEUES+Og7rl6kt3jfwfTL
7I92Wq4ZGQG/LB77UPLe7Bj45bUj6UlFlyfBJ1N/5p/04/0LPvnUamt3evsM
5CnOzjzxU5Fb7l9vTWU5Wzs3C155S8XW1QeOzoFX1v8hV2jNcg288n7uyfcr
Az2hf33l0exLCy8eQv/6xVH/2MieWMhXDFB69O2SfA7kK4Z6mfoa7P4KnnlB
6H/Nnfk3VW3A/qkMmZKEJEMkRSIq801kypAMSYoKmTOUJMmUDCVJypCIkjHz
tDe3oXIInWPOlGNqMKvEofrud63vuZ+13r/g7bdn9QOdffbe172ez3V9/Bgf
/cSQf90sc55aw4Cj/UXOquWUH0SeofvXA+NYD0334ci/ntwVyPnqaT3aZ0y6
SBEUaWtB+4zuOcku26Y60D4jS7DgF/UNFJD+WeyxDlMnDNo5drHbkIL87Lvv
4jwZF8jIz36sNOY0d3g78rPzmD0ne6q3Ij97Zlmd01trEtp7tDr9Q0zEh/Qf
j92sp7r2tRXx1XU5okssvJ8Qvywa1OhaSJ1BPHK8w1kLn3/LyI8ett3o+o2H
//nR4/ZOfe3LXkW8MuNptt4eaRrilRsEw54IWtAQr9zYtxeHzk6IV37eVjE9
4n0N+dE7q39drqTdRX70Z8fTgvUcqpEf/f0Eto+9HEN+9BvDqUoXd+DIj64v
e3zUoQRDfvRo3O/CmVM48qOzFqu5TVdAEMJx+a6Lbg/0nyrgtMHJwOqDUPfr
kk4Yapjl62ZDAT9IiQNuXGR4r7d9gb+IjPzpNlH9zS0vSeB8l1/31y0VcK1t
xdThEAntSToUNm17INCKfOcNQykdGldW0b6jRI/Ylig+GuKf/+z9rGZsSkP8
M99T9cJd4h7If57AQYUnTwUj/7lVhu0/5sEa5D83lZSfO8OHI9+5TC57beR7
DPnOFz5xczfH1IJN9dbchczdMEmMcSVAgQJmfkhajZ6mwEuvjig/3UsBuw9V
PL3T1AgPNuCMA09aALVtxZvJCYMpT/otTKRIYM6EUw6mFcE+DYE3DsMk5EP3
C9I8OdG7ivjph2FPo6xUaYif7tEKfwmI8wmdn859q07TG3dA/HR4fH+oQrYX
4qfv7dY0aF4JRX50nz7qe03FR4in5haZ405hyUD8dEZq9ttyqVLET2c7KBfz
HKpC/LSpoG1AOsAQP20pIGUnSbwf6Px070vl0aVWDO1HSuWoHWKbxhBPrTU4
EzasVId4aqPuS0qeBxoRTz3LFNEWWvAe8dQXMnJHpA+2oT1J/BKniY4RGe1J
FqU+inp3goL2JK+HzqTuZqQgf/rxYveTGoEfkT+99oxT/zfaB+RPl9bcck9Q
tgXx2hp5NmEdO0iI12YbE3W8fbwF8dqMenMFYhltiNeWPXHYJWyEjPjs1icF
D4Qs+xCfrUDysUg1GkB89nezEp61h0OIx55/599oyjqKeGwiXTLLrY0iXrpW
zrUzun0a8dKevy/oN3fOIl7ax74jdqvBAuKh32Jzf/MWfyEeOpAnXPVD3W+0
J6kcMiN0Z8cq4qNd2eK+8P1YRXw0Piry4YoODfHRbkIFpVv0nREfvbloZJAk
egP5z/0LVFyueMQg//lAgaus7/cktC+5JyVusXOoHO1LdgqZrasw1iB++r26
+LjcFIb85/p91plMrDjan8wZLQ75Trwf6P7zPgOG+bEiHPnPmVN9PSqd6tE+
pT7YQcvwaUH7lM2BfhJO6R1onzJgvK6OlcgPscmjWc/kOuH+BIfQB2YU5Ee3
VXsuxupHRn50lrGsDcdq25EffUFBxTnRtRX50WV6Af+0MwntXYq99bkSfZ6E
+G9+4+eKkcWtiOceUjryd9tkP+Klv/TPRyY0zCD+edBjWNx2bBn5yeUfpR3e
GPifn9z/NBR/nbyK+OgzghaLPyVpiI+WBskeu81piI+eX4qF8ouOiI921gg+
0HjpKvKTs6QJPwv+GoH85Bu+9iiu7K9GfnKaq8fm3RkY8pOPaMnW9gjhyE9u
tm05v4d4f9D95OJ+mgXpKjjyk7/rDUkqOA8Bd6/+sr1nD/yXlcnv/5oMtCMG
xxlHOmF40QtHmzPE8/JLUgL1CBkGljpa6DSSkb9c3N05PwYngZmNmzZz1VXA
QsP24kXi+Unf0xTE/5gc/NqCfOOhSsnReXaraN9yz/2WIXFu2n+89cy4ZJ0x
DfHWG0WcXKxm3ZB/3ECs4PRLttvIP36XxUfcp6QG+cf9c9w2rnHjyDdO5cxl
i8Yx5Bu37ZNY9zhTCxKiVG6/lO2GA6cmuIX2UcCnwklH5TAKDOoZCp6Vp4B9
YjWpKTuaoNnXiOPVdS1g5SiPeBYzDpsr1XseEe+/wNvJDhNGxXB4trlatY6E
fORjL621ej6sIl77sB7PbR4lGuK1B3UywRpxfkC89nY+L/4TjshPnmz4eHi/
jQ/ykzNsGHSS98UAmRVI/WaZgFLD/SEhxHmf7iuvyptWU4QYGMx7ZCPtQYW/
1L8tfmDHgZwLR7dpXQ/sZO7P2xRIBrvWrTeWKXbBigTVTgErCmB1FPaxFqyC
G7mrusR3kYBUEaVNOn4WAG1fPGQDDfHeU7N82akGNMR7//qUcvf3ogsY0Xsy
pflrEmoPXGB2t6tBvvMOjcxi378Y8pv7sfXHOZRi4FprWgJXxyhsVM60rWGo
BWVCf20Tgrph1JeuCS0iv5dKXLoz/YkCO1/Yae/QoQApruN3qHq1UPCResUz
fRJ4OlrWLptTAu9vuBXHGE0CVttMps4pzAG9GTVPRjka4sO3J8QYjxP5i86H
P8brq4xHnYDXmSneqD8TMP48m+FPEgZiZbc6by4eh99DW1k/bcORPx0YJGz7
STzPpFSTfqfuosJzFXqG/N44cOY+/9b0bif8lHtzY9dpCrhTk2tg2wqh4paQ
CK44EiC/+Pa86UI53H8s+oi+Ognx5Otcfb1vTxL5YMr4V3DnHOy3jfkT7uyJ
fOtsF70TNuzEQbzUn28itVSYapMwWkDGwNVlv4yKkS5os/tfIA9xfv6r5Kx7
V4YCAx+VJDzeSQGtFz7XO72rgWSKZ6PHbuL+0+H4sRw2B+agcEKyBg3x5scl
0mVdiTxC5813hi1e2vfFAfHmVx325V9T8UK8eYar6irDvVDkZ1cwMxifosQj
/lyBY097F56OePP5rO1Hjq2VIN78gN/ZV2e3ViHe/Ojzz8vwIIZ4cyfr/uAW
URzx5jxX/N7EdGBov/RXmFnjpzEM8eemOn0rggJ1iD8/oN6/xZ2rEfHnWSvB
dw6Hvkf8ec1FHe1Opja0Z4r33wj4rkFGe6aFaS6VcgYUtGfq5dnPdIeFgvzt
LRyWPKeffET+9uXtOmlifG3I3/7VfP79Jo0WxLezOcWncQiREN8+pnxy5aFC
C+LbmesFBrcGtyG+fcGp2f7SOzLi2U0DNKjqqn2IZ0/6pcjucHQA8ezRO0Qt
/4YOIX59wOnyc2vGUcSvDz+/krb3xyjiy70bbxsN1U0jvnzbKyMbNziL+HLJ
nXbhmNoC4sfH7QOj+cd+IX48IenRLo2S32jP9NM7AVdp7lXEk9s9XP/LNb+K
ePKY2TRZdm0a4sl/6Xu8cZi+jHjyXi3xBE5ff+Rfz7f/MyfVE43863xZyYuU
60lo39TXJD6Ks6wc7Zten22rLvxWjXjzPPJq178RDPnXede4tGKI5x19//T3
1Qc/J4n7l+5fX5XoZFpIx5F/XY3hyq5643q0j5pxoNZlnMiP9H1UXQP99KeB
HWgfVWH7w/1z38hg0wqUMdTthM07f4f6mlOQn301kTtHNZiM/OycTV717Z/a
kZ/9y6MG2U2hrcjPvugUfOWvFwntrWZmKlGVrUiIl5/ccqK443Er4t/vX9fI
Pdbej/jywykhtu+LZxAvHuKTxk7pWkZ+dJHsvNLvXv/50d3npbW4E1YRT/6g
sjn+jAQN8eR2lJfWr07REE8eFnyswbXcEfHkMuf0TQ5SfZEfXZC79KijXQTy
o68LzNGkOKuRH51XVvfGgScY8qMXfbUu1BTGkR+9547JtthKDPnR50/tMX8r
iyM/+urpIoquEgT9NdUFtqE98Fh4mtDdNDKoGa9xK/zRCe+MZ4xQrClAxS/F
W+gEGf7KkI+w+UBG/vTmqFfarK0koJBqmCm6vRLejaq8qCRBQnuu/Ysh3d87
W5DvPIeU9wWcXkX7qpIuz7QXOWiIT0/PX3hfbkRDfHrL/R9FQZ5uyH+u9/KF
drZ6EPKfZ9QElu9Nq0H+847YVdkzHDjynTPfP5yvWYMh3zl3r6yPlmYtsPXM
O5JxrBsyK43emdxNASc53s1OPqVAjtk3EgJHKSBfAE97pdMEqWtuX6SI3z98
Nu3mDyscjuh5Pa44SgJN/NS/y5nF0P6dCMguJCEfuqznIJ/Q+1XEt8u3RXYe
O0JDfHuO9S7tciKP0Pl2++QcbquDjsiPniA0xewx64386GxcSZLmThgQeKsz
2s0zAcWt+WlqRB6h+9Kzsgb7RBuJ8+fqkuSu61TYIPA3JGUjDlaMb8Wc6OyB
S2902s28yCDhjFKMvWEXLE/cyhBO3E+mfxw43Lyr4ChnYvLiThJY/qacJxA5
C9iuqbBk//3Pr25eKK6XoE9DfHyh/r6PIr4u4G9BN/u/f5Pwa+5w02e9GuRb
F5eQH6asYsivnhp16dDOYgzcE/hrz9A/CoUnLZtPzeAgkPEKb1x8Nyxv+3iG
nY0C9oce43w6T4FSn0W7/PQooKyJMiz3tBaOiAdxFZ8kgc/+a5e1GErhoozS
Ge4gEhA3rnhruG8OZGWIv5g+QEM8/b3I6/mJRB6h8/T7DK/WRGQ5gQv9ZQ6x
LJMwX2y8+l8dBnq/8Yl+wcahfFFp+jM+HPnbm7CZG/lFGNCIWmmK3UuFtx/u
uCBxAQefPdSN1lM7oeKdU7L6RD5nrdpJseSsh3ptMntnkkmAX1VOpbeqHO6O
5Xq+i/h+0Pn7wJ2DmzcTeWTB+1D1/aE5eD1gwpLyzgP53g/omGkVCuAgb/1R
m04zFTpsIJukfMCA2uAX65KlLkgTC655T3wfryXqdSgco0CWopxsd+L7asXv
vqNiOwaN9zfo3ibut5qgq5TxG3MAZgzGrqjREJ/PqcDz3YLII3Q+3y6TbNb1
2wG0tr8LbXKbhEKS218lGmEgV+XkyTipCajTf109TAwH8ncnP278OAZvJmKc
tGYMCCcWQ4YYKjzbsfeFyg/ifMP7O7n6WhcsSa49a2NCAcMHljTjRKphyuZT
Uvd3kMDzEwLXB6rnwGxX+uXu4zTE94/Oz1TWZDkj/zw112jpwiyG/PNnjbq5
5on3SVUZvjo+PQoHVLHUsCYcsH04GXa3phvWF8+cEqeRAb86465FwU7YfTpz
SZ74+R45kalOhaUwbSL/z4ATCfH/y/mxoWnE+Y/O/9s6DtauyDgBZ/vdcS8o
45A9ZWObK5EH6b76tvRnurvKMOC6p9LWR5UKTyedZbmli4M2qfWzlqROGHYr
c2aMuP4v3Wo915wqYA/7OEPeARLqA9xSHL/y0ITI85FrmtkLc7CiPJHZNdgd
+e29WbemMPHiYDir4WHsIBX+NNOT9mvAQFtWS3OOYDdUEgs9fPAgBVw0Yx65
50GBC7WbhxtlKMA99E6rRQUGi/eyb/cmfp7Fkk5sreMcuORoGV6mTAMbhddv
vW2eB89OLtvvJ643vT9w+WHox34nR5Bp3agk7jNHXK/+B5uHfABLZ4x2ofYk
XP4llL0lGAORxspeO/6MQ8sjhXF8xPVvPxJ93OsV8XmUrGXoEee5t+cUY5Uv
UWEUx3waOz8OXqXduMki0gUjDdLJ9UQ+b2jr6zveVAkleQY4rIRJQK057I/G
Wwq86ZRWimlSQKp1lUz8bxyyO/dsX9ciob6BbvBWw33E85DMU3JF02Uesr2Y
fcV16DIIHuB/F/ZjAl5bflX+jMjnLIldcgaWY/DRM8OBIeL7QdskvMgRAKHY
qZ5JuTskEMWWyVTMVg6zL759+/Q4Ce0l39zQlRlsRgO+0wdJsuYT8Mvth1+s
duEgwMKJZa2ECrtKrH3qezCQv5X5e01rF8R2B4HzxO+rkX/Kmf9aDTS/IaRh
K0oCIuxZvGyxc0Bo5EKSmiYN9RNubZf1vU183vR+gvnFDwKC3xxQP8GvnVLP
t8kL9RPyuZQpzyxDQRvP4asq/DOQl+vWYnV6POor1IVqSns9SUf9BP6cNs/I
iRLUT1gImhFlYKxC/YTcC2LlH/diqJ/g6V+0NYXI+/R+QnEXL7818fnR95fP
Lp6NbiDyHL2v8MnfqLSapQ71FcR2HevZ968B9RUYfP5SY93fo76Cs/bDa3sW
P6A9ZvVtRXHqSmS0x3yk7o/zX10K2mN2dzBRqSCe706yt29XD7fBJZYnf0Kz
PoJG/RlTxUvNcNvPQyG14m2gRDKm5vjGRvj+nN3EKpEP6X2IK9qy+dLEeZne
h2if/KKVsr8F9SEi1wsWo660oT6E4NDK0moVGfUfEvpjr8nK9qH+gxFH4lSz
zADqP9j8sVq+fXMI9R0yPGt31qx9Rn2HCBNtV/H5UdRHCH6gc7i0chr1EZz+
aF2qLZ9FfYTKXC/XrCMLqG/graB90njgF+obaOJJOR15v9Ee876vhXFB7Kuo
fyDU2fD53cwq6h8s+Z4ftT5GQ/0DFTvjA1tqL6P+wa3UE2G7Jf3BHpsv5lPV
M1C3ZqSYKSqaON98dn91fRoqPj9kHqKRhPaZhaQe9eQ+L0f7zN1BLb+ShqpR
P0FY0NHo8iAGbAY2CH1+PA6rHm68P0vkKfp+szDx5h8n7r+F37n+9ZuI5wGP
6sPlpzjYlHnJVcr7Mzxd4n5NR6se7Tu3STwQCz/Ygvaddw6yeo27dKB9Z27Z
gNHRSTKof/XGS9SsE/6KvCgga0EB3NEiC++cPkJ9nRZ3yztkEH84iKIt2gpf
7pG7yP61HUST2w6Gl7yF49pMPNj9VvD6p+HMY0YIzd+k72S9RkJ70Q6PdiZv
PUVC/YoTi+nzi3dbUV9C3VrxJl9DP+oj2AYa6n7OmUH9gq6fQbdj2pZBNPPI
Ou3CNOCXL/E577aC9pydVMdM38atov7B/oiQcXZxGuofBCRLmzgTeZ/ePzDW
Ezp294kj6h/cdc8fmXzuC8ztTDYbsM9CCYM/4X2CESB+v8WwXsQU9JenndP6
WwXStvWeeKVI5N0Hh+QV4jGQWiY31DYzDgXV5iSXibz/eiV7UenJGBSAAbqu
VRjIdH45aGJBhZYN/JK9UjhYkJj6NMk1Ch8+bfbYtgcCtQM+UTb3euBGe/1+
7SQyuBaf+yb8bydkviWWcp/I++/VhUaVLckQxjOEBn8kg7CT1tasjfUw6enx
B+/JJGD11WMhR7MS/nwtgw2KkdAedQWHzhN9UgvwFZXs/Xd6BuBxinxs5qto
H1ryNMvv0+w01Gfo5fidKE/kfXqfYc/xmm6eg24g/uBQmX/pLLS+/ExZqu8W
iCXdinIcmISyvKFBGxJqQJzEnIlZwgT0D6nXYWXDgVClCun7TypMMlpb31mN
AfW7RdsPlY/CM/cnzGoVakH96CWe50bdMHX/ec1WEQpgx8rk8UwK7PJP8itQ
pgBP3loRGZsm+NzXzfHiUAsw1J/cu/M2Dr89iPqlp0ICU5c2GQV/LIYPBXKS
h7JJ4MlynC7cNAssOlNDQNMq6kN8lgycOXqYhvoQcRcHdOKJ9xu9D/HC9of9
NTFHoNTGstf+/hy8dyd2J1elN7Dfwh2D2U7CLbz+zBN2GMCJt662wASU9p+P
5iLyPofBxsA2OAYFM8z3PGnCwJ/03Zx8gVQoFcFqGPYPA7b1hy8bDPXAkE1r
5/xdycCUVerjEcsuWPZkPVH5FAX4GESe+ZlaBT9yMAVZE3l/iNlTcEvYLJjn
TMuvXl9FfYpKzYunpvVoqE8hwLCwVKrgArgu+AqfZ5qCqo9SXuxQqwEWolKx
Tjhx3uJbWQr+jYEglsRTQbvG4EGDfWHLbzDwBB7QWx0ahe0qb9aFx3Aw6rt3
4X5qN9x/WV7+BDMFTModMvOkUaD5LcaUPQYUECAsEG1dXws13dNqaixIYMM7
4fJW6VIo0fi4lt+fBNhcvytoScyBU+t8+KgMDfUvss3+ZFgTeZ/ev1jhNlHN
jHACA/ypHA85JqFy2EdvJuL8F9C8Y92yYRz26L6e+UfkF53XRpdfeo5Bpl8C
BZHE+cRATir3rgwVbr0dOrP/DA6ShQ7EdWZ3wgtLtU0bbCjAbVIj20WsHlJy
Q3/bpJOAyl3zu3YT5fBBQdjvekUS6mvgYufE80yJ836lxM4E6hzU27w19PpV
DyI/lm1Rc5+AGocb+MOJn1/l9Fn9dBsV6vfOMvG0YCDdOF2xaL0LtmRofko/
TAFyx4/ysBlTYKqg8ZcNeyhAyKfk3bA6Bh+Ywp/4HhJIT3mtOXB1DrzmUbm3
l8j79D6Ht8oHPUMij9D7HM8cBV8sEXnkGGfB/vdek3C3zM87e3UxYCJgLvPv
wAQ0XjHtsCDynsainBZf9xhcjFc460X8PvvUqS9XH1Bho+oh193zxHmkaWrk
QXAXLE55vbTFmAIYArbH7jhRDaNYG9h/CpDAV6r+jErZHLCwsd+xm8j79D6I
JHP7YUc/Z3BE+N0Bb/IENP9Z6dryDQNFb5r4SfJjMJRPmzRDvE+azs58HloY
hVEPeTtNq4n8or7Z7s7bbvistYeVb5kMOqcX7Jv3dMJ/v8JqRk0pIO5X3rf5
T6XQrvtBRclFEuqLcPvx+tsTeZ/eF5GUKdfYvsUJcGjscd/aNw6vzT3VERXC
gd/JAJn50DHINdByY5XI+35tU8fcNKkQZzEZiNXEQWTf9HPprk64iV88J43I
+6TKUSw8vgJqSVufMZEmof5InYpjlAKR93M7Zl8U/JqDiTpNh7gPuoNCSbM3
usETMGw12HuQBwffuTg3ZoxSYf8ex7EZ4vwpxx+amS3RDXXsnayOEvlemGFZ
7JI/BVYa/JC1JvL/oeEPfoEjGMSvSFzbIEcCqltu/Cm1nwNGvaUh40o0YFQm
80OicR78UJlSFyauN71v8sq8TWTF2hHEqpE7Hl+fg1y5aqL1yT4geKvvdJH+
JKStrUWk38CAjLSaUeSGCQijtDe3Edd/IL2nIjRvDB574ztfW4sB8iaHq4ec
qXAugOq9aysOLhq7wOF9XbDy0UnVS0TenxBYk/g4Vwl5txos4EQ+W7nmq7X9
IwW+2nT7pusx4vxS+re/WqQWVhruYkvQIaF+yoHojhPMxPPwgXUWRddzHppW
tUtUb7wMVnb8c49YmYBfAY8sUzsGeBlEXpy1GYM1l6sfDRDfj3o7h2eKLyDM
lZOueB5NAvlW70+pHCmHLqeyb3kR5wn63jvGalm7m8j7M/v5veStJ+CqF2Od
DHG9I+qK/TmrqLAqwm/f0S4McIfXvavq7oIxLzTOK2lQwCaWJF7wrAY+fHmc
wZF4nzFL9YcxRM0BJtP6RDdAQ30WqtAX8lXi86b3WcYz+d8oTTqAQ/duBnwI
mIRNQ8+Uio5iILHLemJIaQKeU2JY+E3kcat3zeKqI2PwKlu/HmzDQKnoeye1
xC745lmQ6E1DCtDnsZWSeVENsyKX42YFSYBH5M8lxphxeFyi1Lx/Mw4+5ZzI
76CNQuejLgHfXuPAwID81Ve1EyYXxsxWEc93i9X9EvPUcaj3uOlwDHG+mc9J
D/u5YR64GH1fVjamASmbTqeaf3PQrlfm/vcCN5D2UuTfiegJKJ56aEcuFw42
jGdOvvtOhVfbr5x1xDCwsrZkk6nUDb2OX/zAIEkB6R9qiz38i+HzT76B3hUk
MDx6f3iyYh40mthr9RPX8+KmGVpA6BxMLVVf+iDuA65OaW1y4pyAO5WAi9v/
/P+zU02aEj5UaJv3o7qUBQf9ufp60aALlj+WdOkg8p6i7Z4DKz1zYJfJrusC
BjQg8KBCKT6yG4oMmD2X5KSAOecY+c1etTBw8NzFbCMS6susP9M3rSee//S+
jF1YsrJroxP4+rQdj9kwCUXrlxlpxPtSprs8PNhhDIaE1uuSifeTBDRmlYwn
8o7Al6f/k3d+znHMGt0vh+WeSboByiRQ8+V09LmjFNgoJivMSOSFOHyPR+xs
Ddzy90m4nzgJLFv5qXUNzUNhagRjGZMjqKF2/GD+WQXz2cZ1JInrR+/XxH/i
UOHucgY6z5eH3d5PwCsXqDdoCxh4OihzOHPvGFQMdbRcJL7fhuccTYdDS2Hk
zMkISXcSeBsqUqbQNg5f6HmalwviwC7ort+NI1S4uN9F0c0IB1sDOARu13bC
jRPicnuJ91Nddqidlt8EtOfPeHtwOw6cD22dyePuhs4ZDXyW8hTwai8QPhCL
wVefF8s+7yf+fXc/sDq0zwNlA/WNh4nvM72Ps++j0u3qq8TzIz4rJU9jEi7N
qzcHRRD3X5tG97mMMWhVEWZBId6n0/NRR+V5uyBLkSgvE/H5pQWXReNPKuHR
bW775onzf4hAQrVzNQXax7kL9hP3V+8f72DXjzj8J4KXuwISoElHwiMnx6B7
16DoZ+LfT/cXqK6fjB4h7l9anr6ojMkE7I0V2xpC5FvP74KJXwuocH5EBTPo
x1B/ZwfXte3RVqivABn+/x96f+F//ff/2b//f4TtxIM=
    "], {{{}, 
      {RGBColor[0.237736, 0.340215, 0.575113], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1He4jmUcB/CXY5xCZIRQjuy9jr13kZU9UkdlHM6RrYyjrGQ30aaoyChF
W3tTVhlpK4qyyqzP7+qPz/X93r/3Ou957ud+njclLbN7RvZEIpGNhdn+z4aX
JRKNqK3PNyjPRHZaF5K38oD+Pjn0XjHT75UpjOEL67tlPgYx07qYHM4mfbI8
KdvJtvJLCuhpLNBLyJG8qV+gi95Hfkyy3i+uSV/Nobhm61ryft4jybont+gz
eIkTtDVrE/viDc7T2ay3nMAqfqGBWU05OPbBixynjXlr2YvxPMPP1DevIatT
japUoTKVqEgFylOOslxDGVIozdVcRSt6Mo6n+Yl6vr+UbEkPxrKSH0n1WUmZ
xl1s5C9am7eQ83idc1xvdoMcwwp+oK5ZCXkf75Ldugc365+TV7+R6foG/oxr
tG4eZ85rnKWTWffYh7ydj/Tcsi+j9dnyCobylPUk+b2sI6+M+yInsEOfKQvG
+bHEuqTM4J14VmMP3KTPlaXj+/ks9i/zMJAs66JyGOv1O+WxuIeyWdx/OY7t
ev7YL3P1e+J6GMGr1lPlGdlRdoszkqP4UJ8uc8WzGXu2LiKH8KT+HbX14nEG
sizj+SqeSXk5g1lsvZVp8fLFPYx3Rv2US/UBTNPXcZQW1k3jOtnCP1xn1lWO
4gkOUsusmFzE2/xLtzjL2BMv8AfNzZrIOWzmb6416yIzeZxvqWlWVA5kCmv5
nWbmjWVnMniMA9SI85aN4rljJI+yn+o+KyILU4iCNIxniBE8wj6qxX2SA5jM
Go7Q1LxBnAnpLGcvVc0LyP5x3jzPYZqY14/7xHCW8Q1VzPNLP3eJfPGskyfu
O5eQHM8wuchJvbg3DGMpX1PZd+SQqXRgKA+zh0o+S5L9uIPn+I3G5nXlbF7h
dPytWXs5hIfYTUWz+H1eyFtcpGu8U/KTuEa9P5P0Z+N/6L/GPZd1ZBk5lm2x
x3hnmBVnHc8l6bwc5ylPyfaynSwlM/lAz5I54zeS26xnycLRedB6FxX0/wBK
1an+
         "]]]}, {}, 
      {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1HegzlUYAODPvYTkmoVKVioiMkIlI5VCCkVSRFklipQQRakUWdm7UDTs
mZlV2XuWlZmRvT3vH899x++c843zfjdf49a13k5KJBKp6OZPL8qkJBJlWSBP
SU4kJllwhQYM4hB5GcP/1CCVdV+I2zhtXwb1ePl5XqAPe8hGOs+GiceoSCf+
YoN9P4qXqEca6/qL+7mdp+gW6zho7fPi1+wiLaVow0Lme55HrM7nbI33qpdV
rEBH/mS9Xi7xST6Jmn/1bhJL0poF/KZ3iizyx/iQP1ind4A08hLElzmfeXpr
2U9q9YO0inOYqzeH2cxiJjOYzjSmMoU17CPZnuK8FecyWe8kmeXl6cBKVuvt
JUlejDfjtfhV7y6xGj3Ywgm9TOKjfMAKVunlFJ/g4/hscWd634lneI4kd/KV
uDPunAdoyRx+sTaj5xPll3mZgXFX5GY0p3gmBs66z8TNHLevjvgN/5AS9+n5
UPEoj/A+y2NOrP1BvEhdUlvXT9xHDkbEeVShK2vjTHtutm5szCY16cmOeB8M
4QhFuUYLZvOzffXFb2MmuJP0zhklnuRpPmUT/1k7TjxHbXrzNxl5mPYsi5mz
7jbxcbqwJtbpXaeIvDmz+El9jFvk5XiPpTFzeru5xv3qZsxkkvpo/O7kZWnH
7zEXeru4SmF1U2YwMX5r8V0ygRXs5AqFPH+D6YxXL2cHl7lP73WmMU79fcwH
YxnDaEYxkhEMZxhDGcJglrGdS9zrnCZMZZB6Kdu4yD16jZkSc6Q+EvcoL0Nb
lsRn1NvKBQqqX2Ny3Jl6AP3pR1+WsIXz3G1No/ht0Ee9mM2co4Bew5jnmEn1
YdLLH+JdFrNI71axMh+xOuZA7yz55a/G/MQcqF8SB3CAOxjJCarSnY0ciu9S
PEstks1ZL3E36SjNO/G6LIy58HyC/AIv0pe9ZGd4zCOVuE5nVsXr2Pes+CXb
ORP/55wzWH6YfFzllZg/bgBswd2y
         "]]]}, {}, 
      {RGBColor[0.624866, 0.673302, 0.264296], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1XfcjXUYB+BjFQ07FCmrZLRJ9l7JeO2ZmU07QlbZe0tZIXtvmdlbQ6GM
rIomRVPX/cf1ue/v93eO932f85xHrtbdk7olTyQSyThlSZcikSiSNpEoSln7
5VSJxDMc44OUiUROcz057IO43T6LlV570Xyaw0xwdo+5jH+cnTUfYhsvOvvS
vGz2Nzs4n2r/2n4fq0kvv8XfTJTHeM1Ie1r7fE7KFeVdvCCXkVfwN+10l+in
by+P5gQVdDtpoS8tZ7cXtu/hXftt5kyWOxsvZ7Yv5S/5jJmPrbR1dpG+8bc4
u2QW4QhT9KfMe1lFOrmAuZOe9q/i3zMnmKO893FzPyN0d5sf8ZX+tPkgGynv
7DPzE7O5Wcp5UfMo7+u+Me9nXVw/uZC5m3fsqcwZ8Tl4zwXzKQ4xzlkmcwl/
OstrbqGN/rh5wXzbbOdssj1bfMaktX9rPhK/Dz3kPxlvH+m1w+132efxpVxO
3kEzuaR8r30gKeXpcX11N2mtO0+fuL7y3fY3ucm4uD6645SVt9NUV0Jewg1a
xe9F7/gb4vfgC8rottFEX1x+Nn4Ww/ic0s620th5MXkxf9BSd45e+lbyUD6j
lG4LjeJ7IS/id17QnY17Vt9SHsKnlNRtpqG+aHy3eJqneJIn4r0M5hglvPZj
Gnj94/JCrtNCd4ae+hbyII5SXLeJ+vrH5AVco7nuND30zeW77G9wg7Fxv+uO
xPWQN1JP96g8n99oFvdVfAb6ZvKd9tf5gzFxb+kOU0zeQF1dYfkjfqVpfJ/j
Z+qbygM5xDO69STpC8nz+IUm8b2Jn6FvIt9hf43fGa0boDsY9728jjq6gvJc
fqax7mS8R99Y7s+BuN66tdTWF5Ab0Y/98Tno11Ar7me5IX3ZF5+PfjU1neWX
5/BTvF93glf1DeQ0sXOdUbq3dXvjs5VX8bzuYTmbfQAp4jnKh7of42fGM4FX
dPXl1LFzjZG6Pro9cZ/IK6kRz1F5NldpEM9SXtbXk3uzO54ruhU8F88teRZX
qB/fb17S15Vvj/fyGyN0vXS7eExeTnVdXnkmP1BP9wXd9UnybfFv8SvDdW/p
dvKovIxqujzyDL6nru5zuunryD35hMK6pVTV55an8x1J8eyjq7623IMdFNIt
oYo+l/wgD1CLN9lOQeeLqew1OeUPuEwd3ad00deU32AbBXSLqBTPU/l9LlFb
d4zO+ufl19nKI7qFVNTnkKdxMX4H3VE66WvIqeJ68QvDdK/ptpBfXkAFXXY5
q70/yeO5znu6C9TUHaGj7jk5ZVw/fmao7lXdZh6W51M+/h+Qs9j7kUyextS4
L82DjNVnNBdzXp/H3Bx/X3y+5mGzg1nd2SR7VvsKUtjzmzvoav+JIfZX4p4x
9zEsvovmnczlY2cPxTWP/9/McvH/Y1wvew77Wu6x9yURfzdTnI+RM9gX8a1c
Qz5Ee7manDw+Q35ksO5l3SbyyfMoq8smv2fPbl9DZntBc1d8V+23mGqf7HWj
7entCzkn547fPa65/iAv2qvqk8W9wFUG6V7SDbXfYZ/DRjmvPJcyclY5k70P
/zFFN0l3luryAdrpqsiJuG+4wru67roN8fnIcyityyJP5AzVdPtpq68sd2N9
/O66DykV11bOTCW6so5czmZT0nkmeQKnqarbRxt9RbkLa+P7pZtFCX1GeTzf
UEW3l9b6CvItOso/8I6us7wmvpvyTIrrMsgZ7b35l8m6cbqvqSzvoZWuvPwf
HeTvGajrJA+xp4lnKKvlnPIMnpXTyxnsvfiHSXGv686bT3CAUfp05gJOxbUw
N1Epnk3mbrOlWS6usz2LfTn/yufiec522jv7jgH2jvHMM/cyWHfCTM1sVsXf
b26I54qz6RSz/w/VCnXH
         "]]]}, {}, 
      {RGBColor[0.237736, 0.340215, 0.575113], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1HfclmMUB/Cn0tvQoNLeSkkl7UU2kRZNu61oiEpFe1IiSmhPtKWiSWmJ
Ftp770F78D1/fD/nd851v+9zP899XXeBJu3qtk2eSCSSUVU4ljKRKJMhkShL
jqREokDqRGJsqkQik1pcHUJC/s1aHvkDzvOe/is1g7V71BzqAPUaP1j7VE1p
lkptxU4eNM9nNlq+Qy2mfsgtfrGWRX2XY7yuL6j24RKj9WepLa8gu7yO3PL7
nKOLfh5Jckt2UFX/M5nldzjKa/qvOUOt+GyyyZ35npT6Fmyniv7V+K6cpqbZ
z2SV74p7pjKv8CWneM76cjLLlXiZUZykhvmy+H3lO7mDjGSgIi/xBSd41nVL
SS9X4EVGcpxnzJeQTu7EXG7TN2cb5fXLySR35AiN9SM4RnX9Ym6X15JL7s7Z
eAb6OaSQm7GVcvplcc/y2xymkf5zjvK0fhFp5TXklLtxJn53/WySy035m7L6
pfH95Q4coqH+M47wlP4n0sgdmUUyfRP+oox+Sfx2cnsO0iD2r9qbiwzXH+ZJ
+UdSy6vJIXfldHwX/UwSsef4k9L6xfFM5HYcoH7saQ7xhH4hqeQOzOA/XjPb
wgPyItLLbdlPPf0nHORx/QKS5PZM51bsM7PNlJJfYBgHeMxsfpyneMbcz/N8
zH4ejTNHCrkd33Ez9qTZJkrKdRnKPh4xm0dyeRXZ4zxzKu5XX1jtz1W+1d+I
PSxvpIR8rzqYm/GM9OnUt9hHndi/sa+c7/xxTtVe6r8MiXuOzzXbKz8sf08y
Ob/ZGPlO9T71I/7j19hj8ezMs8W5U7uoJ+Mz48zF+TArpPbjCt/Efjb7RL5N
vR5nVX1Jv4Hicf7VjGZF1ZzqIPVG7JPYg/FszW5X32Qvtc3zmI2MPa7mU3vy
T9yrtT1kNq+mn0tCv5KscmdOxP/ST+NanGX9H9wnLySt3IY91NJ/yG4e0s+J
38J7uo1+KldpbPY7xeSaDGYXD5rN5pbrb3KD69xr7TkGsZOqrpnFNWtF9TUY
yA6qmM+M52+ttX4KV2hktp4i8W5iANupbDYjfnvXv6GfzGUamv3GPfIz9Gcb
lcymc9n1rfSTuEQDs3UUlqvTj61UNPuOS66/SKF439CXv6kQ+zT2mLW7491B
H/6ifOyHeE7WWuoncpH6ZmspGO8HevMn5cymccH15ykQ551ebKGstamcs9ZC
P4F/qWe2hvxxvunJZsqYTeGs65vrx/NPnG+z1eSL800PNlHabDJnXN9MP44L
cd7NVpE3zjsfsJEHzCbFu8z1eeJs8z4bKGU+Mc61tZPkjjNHd/6I94i1CbE3
rTXVj+V8vCvi3JFLXkAauTW7qabvxu+U1I/nuL9fEWdM7hQ9TfR5nYdRcjr1
brVvPHPGWBsW7yvzc3IWtY5+ZZxFfRF1INeZr89tfbicpKZW32AXD1kboaYx
z6tmU3vEs6OrtaHxbjFbL5eQx/E/URopEw==
         "]]]}, {}, 
      {RGBColor[0.72987, 0.239399, 0.230961], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1WW0VVUYRuFDqIgBCgZiAQqCSFyVbunmgnSJUoIg3dLdXdLSIAqoSCkp
SJcIKiqltC22z/djjvd75zp73LvX2XudLC06JndImUgkUuCYIWuaRCL/3YlE
Emqbf0qbSOTGHky4PZG4VS7EQ+ZuuILh+kc+e0NmixlD+C/kn3KaTCXTy1Vo
aj4kj8vXZR/XjjInzG8ivfk7eT/Wop3+LfqZF/lsX/NPGKd/p5cxb0AdPVnP
ZO6KyxjGbeVSmpvgGDpyvbmFuIjS3AeozdfSa6IXFuACSll7H8nWa+hbkEJv
jKPowPfk5uM8SnLvoRZfXd+MhN4IR/Aa34Obh3Mowa1HTb6avgn/oSF3GO35
7vpcnEVxbh1q8FX1bpiDb1GMX4vq1qroG/EvGsSeox3fVU9nfhXfoG/sO/cN
iurvohpXWX9afoLx3C1yAR40Z5YfoIv5hLwkh8oPXTPY/Aem6v/Ensh0WIn6
/MH423GttRxyB0ZyZ+R/cra8W94n30Xb+N7k17KPnO26q/IxbIrnh/8RY+Mz
sQ8yLZagCL9PviOrykrWc8ndGBf3L1NjPh7QL8WzjffRWf8eQ8wbXHddZo3n
CYP40/KmnCL/tl4v7s18QLaN67m7zG3i3tCbm8WdQWF9DapwFfX7zZnM76GT
+Xg823Jw7LP1gebfMVn/K56b2COsQF1+f/yduNZadrkdI7iv5L9ylrxTZoy9
QOtYQy/zTNdckY9iY7wb/A8YY/7K2u1yMQpxn8q3ZWVZwdpYcyrzPNwX+xXP
B9bjdf0iBsV++mwWuQUDuFPyNzkpzojYJ7kcL8b3hdZxPf+DfBLbMJz/BzPN
d8gMcg1axXsov5Q95Yx4f803MDq8XtC8GpX08nrGOAdwAQNj37k/UCfuEa24
jnpac8s4y9CDm859gQL6KlTkyunrcRO1ub1xDd9Bn4bTeJ5biQp8Wf01TMUp
PMevQHlrL+jr8DuSuT14hW8f30PMcYbop2V3OYXvab6OUfrn+rPm5Sinl9Fz
yl0Yw30tU2IuMugPyHXxv5rPY4B5rWuuycexGf35z+WvcmJ8b9bvlMtQizsQ
Z4R8Wbaz9oT8GMO4vzHDnCaeBXlvPD94Oc42eUp2k5Nd90icH+jBnZTX5Eh5
0loa+RaSuGUoay7N/yifwk6M5lPIOfF34pzFOfSPc8Rn3zD/gglxL3HOm3ej
hf6qflvMca/oyk3iPovfQ30pXuBK6e/gF9TgduElvq0+ESeQj1uCMnxJfQ1+
RnVuJ5rzbfQJOI683GKU5kvob8fvLqpxO9As3ld9PI4hD/cWSvHF9dWxD6jK
bUfTeCf0cTiKZ7hFKMkX01fFe4Uq3DY04Vvqt8a9xN6jCzeWO4Lc+kKU4Irq
K3EDlbmP0Zh/RR+Dw/GbwS1Acb6IviLOTlTiPkKj+P710TgU5zE3H8X4wnoL
jMLBeHb5eSga50+8x/HuxfsU700860jCSxiJA3jK5+eiiGvy680xAvvj94af
g8LW8unL41lHRW4rGvLN9OHYF2cp9yYK8Xn1phiGT/EkPxsFreWJfUYTDMXe
eA/i3EUB67n1xhiCPcgW5xiet/a0vgxXUYHbggZ8I30wPkHWeI/wHJ9Lb4hB
2B3nKj8dz1rLqTfAQOzC4/w0JMV7oi/FFZTnNqM+X18fgJ14jJuK/HwOfQku
oxy3CfX4enp/7MCj3BTk47PHnqBuvGvYHu+0tcnIa/0JfTEuoSy3EXXjzNdv
ifcCn6Ez14/bhof1ScjDZdPvMbfHWbwRZwLXz/wzxuvf62fj9wFL4zzl98e5
Il+UdeL7MX9p/iv2TaaWF+Q9WB3fv34Cncx94/7lw9iA7vE/yqtyRJxzcW7I
RcjM7ZUT5TPyf8zrjDE=
         "]]]}, {}, 
      {RGBColor[0.624866, 0.673302, 0.264296], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1ne81nMYxvHntDunPZCkIQ2VlEJ7J5oiWrRoatCOdojKKtKiKaVkFGUU
FU0aNLQV0aC9l/f9x+d1X9d1f5/z/Mb3ez+nYPueTXukSiQSSaiaOpE4k5xI
lM6SSNyDwimJxN3qfZkTiXPon8kidQX+0yukl5/ehyZ66fjf1ff4sfp3qUfQ
UZZF74T6Cf+LXjZ1E+6RLcMA+mF5ifhu+gR6yi/iK/qA3s3qdtSM67Bug/oa
30uvFZ0i+1OdJftclkFdg1yyaWhN3yEvr55FP9kNLKf/ld+u7kVj2U5MpMfI
n6H/w0L+Z740vRT9+Yf4/ajBr8ercd18S/oQZvKf8TnpqWjFF+KPoxG/A+/K
XuM3xvOO+0U/WT1+H6rz6zBa1oP/FDn4KWgpK8i/ig0oJfsSfeUP8t2xCNll
k9FCXoAfjfUoKVuCPvK6/LP4JN6PbBKay/PHs0E+1EE3LETWeNd4wprb+Nro
igXIEs8Pj+vl5V/Buni/ssXoLa/Fd8HHyBzPAc3kt/J5cEu8c9yE3MiFmuiM
+chk/Tt4zGdyxjtAJ8xDinwCHtXLEfcfzxEd8RGS9cajqX42vlq8Z8xFRvnb
eEQvK/8y1sZ+ln2B5+VV+afxYewz2VtoIs8S94Iq6IA5SK/3JhrrZ+Iroz1m
I538DTTSS+FfwhoUl32O5+SV+L1xjfxavCJrx89CWv51NJQl88fQkE/rLGyP
5yMfFddK/4sF/E98Xv2scRZRTP4ZetEVY3/H+Y69Jstp3YXYU/yeeBfqtrh/
2Rq8TLeVF7WuKH0YLeQHMYOeGe9QL318L9LIr6jj1AZqRv1y6hn0leW29rr6
HX9UryCfL74bDeTb4r3SI+MZ6RWn/0EHeWb+uPox/2NcE/0pevIV4mzFOUd3
2fnY9/TueFf0T3iJb8PPQGp+LOrLMvBHUJ//LfaNbAS/GkX4Reghe4B/CtOR
SjYGD8vT88OxCnfGDER3+f38k/gASTHL8JA8HT8MK1E45g6eld/H74r9w/+I
UbLW/PtIxOxBPVlavg+dy/O4pn4bz0h2W9xvzFnZr7HH6aHyYtYVo/9Ge/kx
zKd/iHMcMy/mpuy6ukDtppaPWUHn8NlzcaZlv8ec4HPTv8W+la/GSLpVPCu9
IvRfaC5P5v9Qp/PT4izEe8MN+rI6Wu/B2DP8vepp9JZdxTdxvfIC/kZeelfM
YnkafmucR36Ifjs6k+yoOk/2fZxPdWPM4dgr6EqXk+9ERX4VRsha8k/QB/AB
P5W/HrOMr8unpgdjRezTeGboIr+Xb4EpuBbzQ15Hnop+EcvjuuN60Flelm+O
ybgaM0BeW55El4lrwCRcwSi9WnoJ+gV8h/yyj9Apfk/5HajAr8Rw2eP8e/FM
MVJWM56x3/nDfD1+S8wn2SC+LX0k/h7/bcxYdQNul11T56od1dJ63eizMRP5
7Xw+zzkX/WucBfkPGEY3i32v/hnXIsto3X71fX5izDB1NS7RI+Q16Ouur5R1
ZelTeD7mBr6O/WPdrbHf4jdOltq6zTFH+YF6beh/MJf/Jtbqp9DrkU/+IZ6h
746ZrleKPo6u8uz8mZi9Mef0c6pb46zKvsdQ+rG4n/j/iD4U9yffh2n0u3pp
1FW4SF9Sh+tVV6+5pwGyr+Msxj6WzVGfVkvJutCnYxbH+Yk1viMHvSXOvvyG
ukIdoj6qf4d6MK5HlsHavepU/p2YX+pKXKAvqsP0qqlXXUNJa8vQJ/Gc/DKW
xfuJvaSXh96JuvJU/Kb4jeH7x3yj/45nyC/j8+gn0+uQVz4bHeiSeiXVY+gs
y2bdqZjHsT/0ytPLMZhvGnNOvxD9R9ybfA+m0BNilsYswnn6QswsvarqFfdy
SFaH/wXjZP1iptKHMYdfGu+fnoX2fAl+a/zmxG8MXpQ9wo/HOQyRVZFd9rf7
8l/FPcpmop38Lr4J3sbZOP/yyrF3rb+I4rLGeAtn4rzrV4r3oNeH/xK3yGag
rbwY3whv4nScaXnFuFfre/NLcHPMSLSRF+W3xDyMuY4XZA35N3AKg2QVZOd8
/iBfm/8ZY+MM8YtxU8wzPCUrwm9G2ZipGCRrEPNMPRDvRpbeu9mtTuZf1zuJ
gfwD/Fnf04u+hKXx/uL+1B2oJUvy2Y3qmNhreq3pv2Kf8F/EWv2M9FrkjpmA
J+k79UqoR9FJltW6k+oifpNednUzysRMwEC6fpwJ6wrQ++O9yndhEj0u7lsv
KX4DcII/rw7Qv1/9H3z2uPM=
         "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
      TagBox[
       {RGBColor[0.237736, 0.340215, 0.575113], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl1XV4lWUYB+ANRseoDZAYo2MDaVBAOhRBpgKborSCAoIYKEqN7hIEJOzE
oAQxCBUDDMIEk7BbJBTu5/KP+/ye5zk753zf+77ftfSBo7JGJiYkJMz1ElnL
y0F5H0PVZZjGUH0fmY+JvKEfJSvRWd1F/iXvkZvlTbI8M+Lz+v6yOO+px8qq
NFZfJE/Iu+QTchzXqAvxtjqbK9T/yVeZTx5qmx2Sy7ghfp+uZn/LLUynCReb
fSefjN8gh7zUMf9ILufG+CxNSaKu9z6W9zOMbjQjH/kpQEEKUZgiFKUYxUmm
nu/4RK5gOJfSnFbm38unuDvulRJkmH8qV8bacRktaG3+g3ya8VxLSTLNP5Or
uJnutKQUpSlDCvX93efyAUZweaw5qTTw3mG5mpH0iPWijfmP8pnYT/pRlgvN
j8g1sff0jLUxOylfZEbcH5eY/STXcy/X0cvsnHyNBZSjodkXci23xD7HOpn9
I7cyM+6ftmY/y2eZEGugL8w76uvJioPLBHYoFzJIXZJcPtTfLqszJ86lvpH8
Uq6L86NOYbS6r8zPJN6M65KV6RV7Ik/FPcltse7yAmYySz9AJvO++jZZjTbq
dvKX2G/5XJwpWTaeo1hbWYTJvKsfI6vE99Fff2U8l+yMPZIVWaQeLEsxlf36
O2SNuB51Y/mVHCcfjPMtU5nOGH22LMAe9WiZRlacIXlavsTs2Efam/0qn2dS
7KW+KHvjfrlKnYdd6sVUoIn+a/kQt8Y9xLkzOyO3Myf2lA5mv8kXmMxAKtLU
/Bv5MGPjN2INqUQz730rH4k15uq4RiqTRhXSqUo1qlODmtSiNnWoSz0yyKR+
PA809/1H5aNxZugd10lH89/lBqbE+YrngRbmx+RjsQf0oYfZWfkyc+OzdDL7
Q24kN/Yvrt0sL7vVS+J5oKX+uHycO8nRF+StOJv0VP8rX2GEugLzYu1kCT6I
36Kz+k85Xm6Sw2W5OC/xzMhiTGFf7JFMZzZD4p5lEq+rlzJEXZoDcU2yZuL/
/y8a6c8DuMupaw==
         "]]},
       Annotation[#, "Charting`Private`Tag$106019#1"]& ], 
      TagBox[
       {RGBColor[0.72987, 0.239399, 0.230961], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV1HfgV2MUB+Bv/UhJhUISKrJXoWQnosgoZI/IKMrITqRCRtp776Vhz4ZN
ZVQiTSVCQ4OUSs/nj6dzznvfe7v3Pef7q9qsdeNWxQqFQnv/dOHV4oXCjeyg
Kr/TjxJFhcJm13+Sv8ClzFfPEZ/kf+qylkFUYAXduZp/GctenjPDfTPl93Mq
JVlKF4pcbyz+zShW2ztf7MhFrGcIB7GKXlzLK/ZNEm+iWu5Xf8/X8nacx37M
tPaR+AC1KJVvtNaVyfKbOYx/1Auyl25MsXYLh7NF/QMf050e9KQXvZlqz61U
z3erf+ST7Fc/SG325A9rfXhN3owj2KpeyKf05XVrt3Ek23L+fEY/+jOAgQxi
MEMYyjCGM4KRjGI0b3jO7RzFf+pFfM4Y3rTWnKPZrl7MF4xlHOOZwFuu38Ex
mRP1Er7MN6rbcBql+dPaRN6W38mx7FQv5at8o/oh6mQuWJP54x35XRyXuVIv
4xv5U9Rjf2blHMSHOZ0yLMsc0CT9Y3TmMXMgdqIBfzE0fTdnlcVf6c11TLL3
XfHuvCfHp0f0p8AiXuQyNjEiffSc5e77Vv4057OOwRzASnqwm31N01/GMTvn
Lj7CGTkrBrCHfWXF5XTlyjwvsyg+m/dwvaG4gWEczG/04fr0lAk5D/smu+89
eQtOoBiLeYnirl8ubmYkP9v7ndieC6jInPRffJQzKcf6zL74HBdzCFOsvS+2
5MQ8mxX57WUu5I9xFnvn/PP74AP5PZxEUc4pPc5vITOfOc08ZtYyP5mJ9Cbf
k/+LD91zLzVytvySHuS5TFO3oia7syrflpmTP87Z7JMzzHOYLm/NyZTITFib
Kz5DfQ5krrVZ4hOcw75szG9bfJ5LOJRp1maI93FK+skSXuaK9Mr1eWIHLqRS
3p2eeVc9uUbcxnjm2TtbbMu5rGEgJe0rn57RjavYwhhKu7Ypf0PkndNzdaO8
K8Opwmr6cgPbmUhZ+6a7bxdvk90j
         "]]},
       Annotation[#, "Charting`Private`Tag$106019#2"]& ], 
      TagBox[
       {RGBColor[0.624866, 0.673302, 0.264296], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV1XfczmUYhvGHSJuskr333iS0d6hUShmVUVHSoI0yimSE9lKJRAnJahvt
pBTtIrSjPb7nH8fnus7jft5n/O7rvt/q/Yb2GFKkUChsKloolNyjUGhXvFC4
r1ihUBnP6aviGf4hdS9swlhra9QmGGRtlLqNG4AX9HXxOf6xtkAtj+nWusp9
9K/qN6hHqc+r1fGxtTlqSUzi16vN8SXusHan+jd/DQ5EKa49d7++ChbJD8t7
Y5w8WB6t/1Y/EP/Kh6Mv95p8NDbLUzAj31W+FqXz/lwH7gF9VTwrX4Qx3HZ5
EP6Tj0A/bo18DLbIU1EaHfkHuWpYLF+MI9GfX8sdi0/kaSiDQ/mHuOpYIl+C
o1AW5dDJ+sPWamCpPARH43x+HXccPpWnozwO4x/hamYf5aG4mduRZ4NCvjN3
Abdefzw+y3PGTO5f+TqUwUFcZ262vhaWyY/I+2C8fKl8i36n/iIUye/jLuRe
15+A5foamQv+CbUUbudnyLP0/+mvxyv6hiib565WxF36g72ui/5Rfe3MjXwZ
xnLfyRejaJ4DN4B7Q38ivpDnygdisjxTvktfwA1yueyPvhLu1lew3lX/mP5d
tU6+Ozdbvy8+wgRurdoUw6yNU7/nLsGL+nrYQ79QPQh35vl63UD9m/r31ZPU
FWrNzLi1eWrpzDr/utoCs/i71SK4kS+PQzLH8uP6unkP+XKM536Qh6BYnjk3
iHtLfzK+yu/GPVxR3JR9RcXMsTxHXw8r5eGYwP0oD0XxPEtuMPe2/hR8ne+G
Splr/gmuPlbJV+CknBn+Ha4bvslno3Lmmp/LNcBq+UqcnDPCv8t1x1b5XlTJ
nPPzuIa5X+SrcAqqohqq4xivedJ6o+yBfDW65Rzx73E9sE2+DzVwLD+fa4yX
5BHonnPFb+BOxbfy/aiJ4/inuCZ4WR6JW7mfMv/YM5+Rc8a9rz8N2+UHUAvH
8wu4pplx+Rrcxv0sX4YS+UzuUm6j/nTskB9EbZzAL+Sa4VX5WpyWM8B/wPXE
ztzTqIMT+ae55nhNvg4TuV/kYdgrn8EN4z7Un4HvcofmuWd+MSrnLnOW/cz/
AX0LrJGvxyTuV/ly7J3vkFnM/wj9mfg+9wTqZX/5RVzLnB35BpyB+tlLa8/y
rbBOvhFnokH20NpivjXWyzfhrMxoziJ3Fn7I+UTD7CG/hGuTcySPwu3cLnk4
9kGvzGj+56THj/KjaIQe/FKuLd6QR+PszCi/mTsbP8mPoTFO5Z/j2uFNeQwm
c7vlK7AvzsnMclvS42f5cTTJHvLLuPZ4K3c07uB+k6/EfuideeY+SY9f5Dlo
itP557kOeDv3MM7NPPOfcufi19y5aIae/HKuI97J/Ynz0Bwt0BKt0Bptskde
v8JrD819KI9Dn8w//xl3HnbJc9E2+8av5DrhPXk8+mbec/dzfbBbnod22Ut+
FXcYNsgT0A/t0QG9rK+21jn3Zs4c+mf++S+4vvhNfhIds1f8C1wXbMwZwxTu
d/kq7I/zcx5y7+r74Xd5fu4GrhhGcxXym7lz5Bf1XfFB5kTeD7fKE+Wp+j/0
V+ce0dfP98IB8tPqwZihvyBnRv9VvpfaP3etWit/n++vlsGUzJ3aMq/NnZM7
SC2OMTn7aiMcol+iVs5c4Z7sv9oGnfxNb/Wl7IF6uLpMrZYZynnP/Kr747ac
ObUZJvHT1D+5D9URuevUBiipf0atkHODmZlXtTW+wYU50+rXeb5Ypa+dGcz7
5fmqZTHV2oLci/o9cXPuJ7UxKmYOMr/6l/VHYFPOLwbkXshn5VniL3khOmd+
+Ve4I/FRzlaePybKk+Xp+r/0I1EKi/L8cp4xSx6Ye0W/NXuc36KuVutkxvG3
9afUcpiWc662ym/NHZs7Wi2BW6xVwlJ9FdybM6a2zXuji9f+Dy1vdTw=
         "]]},
       Annotation[#, "Charting`Private`Tag$106019#3"]& ], 
      TagBox[
       {RGBColor[0.237736, 0.340215, 0.575113], AbsoluteThickness[1.6], 
        Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV1GWYVGUYBuABhCVEuqQVQUJASlJSUVpKGgSlBWlEukNCQRSkkQ4lpbtB
uktQuhtp7+/Hfb3P835nd2dnzpmMjdtWbRMtEokUjh6JXIkZiUyJikTeY0+s
SCRa7EhkhNxNvmf2IoVdOjOOOdb80NlpswWxiWU/2kxjLnf2TB5MFt7Ut5if
kdT5HT2GOUqfJD82+/M2r9uPM9OZjZ1dlTuTjM2he61T5Zz8pX9Hcc7oLcPr
4089NVvlqtyVJ9OEa35+ml0u9urdKUEarju7wXRnudln14OSpOWms9/s32e/
3pNSpGObXTXuyVP4kluun2GXhwN6L0qTnu121bkvT+Urbrt+pl1eDuq9KUMG
dtjV4IE8jabccf0su3wc0vvwERm56+wes53l57BdXz7mLXba1eShPJ1m3Hf9
HLsCHNH7UZa3eeBsrv0HHNX78wmZeOjsEfOcFeSY3QA+5R122X3OI/k3mofP
3PXz7QpxXB9IOTKz264Wj+UZtOA/1y+wK8wJfRDlycIeu9r8J8+kJU9cv9Cu
CCf1wVTgXZ46+92+KKf0IVQka7hvnT3nBS/5wzXFOO1sKJXIxl92dXgiz6IV
r1y/KDwbnNGHUZmzeiviskLPzl65Lk/l2bQO96beheRs0SMslouTxPNwVv8+
fE56b9KH32n/s5nWrOLsb7k18YiyG2OutH9uDgnPot27ZgJzgpnD2T6zXnjG
7J7pr5k/6KnNOeG9lweQifh2482vw/Nidg2v1y5F+B4wfzK3hvfC/J7sJLKf
ZGYwozlbIpfgbzm63Uh5eLjHzD6ktMsQ/gfzl/C94exc+Jvh+4FV+gtzKFnD
95a+36zPc3lu+PzlgbxDG/2G+W343WwLf5elcknOySOoSk4O2DXghTyPtsRg
mV0pzssjqUau8H4Rk+XOSvOPPIrq5OagXUNeyvP5hlj8aVeGf+UfqMH58HrD
+8xq/X0OyY14JS+gHVGssPuIC/KP1OQfvS1vsEbPw2H5CyIs1NtzU+5GKrbr
sVkpf8xFeXR4ruW+ZAzPr/6v+U24d1ir5+WI3Jho/K53IA6r9LJcksdQiwt6
OxKyTs/HUbkJ0flD78gt+btwr7JDj8tq+RMuyz9Rm4t6+3B/sV7PzzH5S2Kw
SO/Ebbl7uJ/ZqcdjjfwpV+Sx1OGS3oHEbNALcFz+itdYrHfmddbq5bgq/0xd
PiA+6+zLc03+hXoU5A0SkJBEJGa96ypwXR5HfQqRhA32Fbkhj6cBhUlKMpKz
0Xklbsq/0pAinLBrSkyW6F1IwSa9MrfkCTTist6RJGzUi3JSbkYslupduSP3
IA279JRslqtwW57II7kfb4V7Tr9idiIpm/SX5jCyhfvA8z3RTG8Wc3ZKbk5U
eN12P5rL7J+ag8K9apc53Nvmr+F5dnbX7EladusRZ8PlHOFzlCeH+9dM5ex/
P1kojA==
         "]]},
       Annotation[#, "Charting`Private`Tag$106019#4"]& ], 
      TagBox[
       {RGBColor[0.72987, 0.239399, 0.230961], AbsoluteThickness[1.6], 
        Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV1XccT1UcxvEfSdHQHlJGNkVLU6GFBhklDdJQKaOhhbKjQRJlj+yZ0aCy
MkolmoSmBtLepd7PH5/X832ec+/vnnvuOd9f+XadmnUsUigU1hctFCrsXSgc
V7JQeKJEofA6PYpOpHthqbGH6U7ZB7QrfZGWwXZ0M96Fvi9vg1nqA7ENxfjh
9G+6mfalLVzfUv2S+k16Lp1C98Hn+Mb4IPqzvDue5XtkTH0bDsSxsuNlQ9Rl
sIzvjjtkH/BtsSdayi6XLVKfh2/5SaiIWvInZUdjeZ6Ra1EJlVHb+FBjx2AF
/yCuCPLFsvOxnZ+MKjhB/pSsLF7jH0KrIH9ZdgF28FNQFSfKh8nKYSXfE1ei
Gk4yNlxeHqv4XmiN6jjZ2NPyCljN98ZVuVf+iuxC7OSnogZOkT+TNcMavg+u
Rk3UMTZCXjHfne+La7IXsr441fhIY5XwBt8P12btcJqxUfLKWMv3R5vMU/6q
rCG+46dlLXG6fLSsSr579hTaZt1whrEx8qp4ix+A67JGWYu8c94j882c8myc
6Z6xrq+Gt/mBaJfn4Cxj4+TVsY5/BNdnneRLZI2wi5+eZ6OufLysBt7hH8UN
Wafsf1ljfM/PyHNxtnyCrCbW84/hTtmH/HUojhuzlrJl6ovwAz8zc8M58omy
47CBfxw3ZW3ly2UX40d+VuaGevJnZcfj3ZwPtM96y1fILsFP/OzMDfXlk2S1
8B4/GDdnveWvyS7Fz/yczAUN5JNltfE+/wRuyTeQr5Q1wS/83MwF58qnyE5I
T+CH4C7ZR3w77IVb8z1kq9RN8Wvmwf+i7oHncqb4L9S34yCM5ovgkZwhWhU/
or5rz6NT5SemJ6j3znpnr9DvZB/Se+hL9OicbWN30435pvR6OpsehK9yP/80
/Yf2w1J1RXTIXqGrsxfpZXQq3Re/ZW3or7KP6IP0ZVouc8C8nHv6pbwj5qsP
x8HqMbQoPsGjOfO0Ghq453w6TXZSfjd7md+lvhdD+a78puw1egMtkV6YPcqv
UTfD7/z8fBtcIJ8uOxkb+adwe9YQFxqbIT8Fm/hh6Igb5a/LmuMPfkHmhYby
mbI6+JgfjntkH2ePoyQ6Zf/K3lC3wJ/8wvS0/A9kHIekB8oayWapT8XmnE3+
e/V9+R78vfzmnAt6E52T9cv/g/oZ+i/tj2XqSvgBnXMe6Fp5S0xT74e/sjfz
3bIO9CH6Ci2P59NXsxdknbFAfUT+f3AoP5bugcfSU13bWD07fZCeRifREtiS
fpF5yO7HIvUx2JG+a+y+XCNvj7nqQ7KX1CPobrqFPkyX08rokrNK35Rdjunq
/XNO8LexJ+nv8p54ge/Nf51znnvpQnokDksPNn6Reo76dGzlR+B+2Vb+ZuyH
O3LeZW+ll9Ir6D+yoeo/sk9oL/oqrZC9iReN98l65X48ry6Nb7Pn+XG0GD7F
4/wqWh2N3HcxnStbS8+gk2lJfJbzkX6acy9/AIvVZbETI409kGvSB+kt6SP5
Xlkj9Uj6X96TDqAraBXc6b5b6duyVpihLpVzmv2U80H/lPdO/+D75j3SC3Nv
1pkelf2hHk/3xCD1aloDjd1zCX1OdiY+5UehW94/vRClcJesg2yd+krs5hfl
G+HS9A/ZWfiMH53+lbVCE2Pz5XXxOT8mPQG3yd+RtcZ//OLMA03lC2Rn4wt+
bM5seoB8vewqFNK78lxcJl/In4Mv+XE5h+kL8g2yq1EkZydzQbOcH74etvHj
s8/z3PwWmht/wVh9fMVPyJ5DJ/m7smtQNPtJ1k+2PWuDI9PLZC2yv9QN8HX+
H/mf1N0wke+evaLugHnZ6zkDOIAfRQsYmP3j2s7q99Tr6LV0Zq7L2VYPS49I
X6N96BJ6bPoRlri3f86x/G6UxgS+OAar19CamReau/Z/UPKLrg==
         "]]},
       Annotation[#, "Charting`Private`Tag$106019#5"]& ], 
      TagBox[
       {RGBColor[0.624866, 0.673302, 0.264296], AbsoluteThickness[1.6], 
        Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV1Xf8T2UYxvHzQ/beI+Mnmdmyd9se0S6hoTKyKVQ0pYm07L1lk5EVKi2U
Ig0lu7J37/uPz+u+rut+vuOc8zz3Se3cs12PlCRJ6qdNkpOZk6RWtiQZmDVJ
zqgnsiTJejUF+bMnySj+ffon/bbYT5fAdXrN9QbRq+RV8Q2dC1/LF6j/yHJY
95h6mK+A6/UeUMfL8mErnQkFrVusN5X+U34/nuZH8l/SKfo3qT/EWvymt0I9
L+uFU66jNj+I/kfvDXzA/8xn8Nl26q98KlroDVZXy6rF/+ZL40HZBD4/lvC9
8brsK/5m/M6f9jt1ZIP5f/k30RLPyD6VVce3fBk8JJvIF8BSvg/O+Hxd+TOy
//i30Apl0Uk+SV4Qy/i+OGt9PfmzspP822iNcjindx719YfEPZC9gzYoj4fl
k+WFsJzvhwvWN5APlZ3m30VbPCtbI6uB7/gK6CybwhfGCn4a/xf9APrzo/gd
9C34g7/ouxvKhvFn1TOyz9Q0GE1/qO7Va4/f6JIoFc9Gbwi9Vn4jvucX8v/S
OfUfV4/wNwR6XdSpsiLYRmdGIetW6k2nD8ofxIDYB7Ef6TT6t6o/xloU5w/o
r6QvxF6LfUNXjd/Qu+RaGtHPyc+pZ63doKbFGPojdZ9eRmvvjL0RZwLt9Yaq
62RX1ZqxH9TcuNbanfqL6P/k3VCR78pPoy/FGnWVbCAu+w+NZc/LzqvnZBvV
dBhLf6z+otch7n/cyzhf8X/0htHr5bXiedJ5sEv+iXpSlsu6J9SjfEWU5yvp
P0JPlxfFdjoLCuut1ptB/y1/CINi7/Pf0Gn1b1P3xNo4v3qr1Iuy3nFO6Grx
O9ZdcU1N6BfimqzbRF+D9+jx6n55Jus6qgfietBB7zn1M1nt2B90XhS1brfe
YvqU/ElU5h/lZ9CX1WLqF2rWOJ96M9VDsk4YHOeP/5a+HX/xV/2/prLh/AV+
HDriedkGWZ2YQXwVPCabyRfHmpgBSHCTfITsYsxO3IWqSMHNei/Gs475hLtR
DY/LZ8lLYG2cR6TBLfKX4lri/OAeVEc3+Wx5KtbF+UFa3Cp/WXYl9igm8L/y
d+Fe/gV+I103zgJfA0/I5vAl8SWdLfaOfJZ6WJbVfX5YHRrzR/YdnU52h/oT
XyTeCfxB/dX0JXmfmG909div8tvUV+Keqlf5zWp6fExPjHmul9l33K3+yZcO
+Pv0h9Ob5PWwk84Xz1Vvj94S+rQ8N/9UzA/Zk7K5cQ/iTKpfqdlj/+jNVo/I
OuMgXTbw2WExO+nv5c3wc5zF2O/yT9XLsrzW9VWvkd0ue5VOMJ6/HyNkm/n6
cV/4mnhKNo8vhQ2xj5Eed8hfk6VgQrwTUQvd5fNl12Nj7DtkQDP5yJhjmBjv
KtRGD/kCWWlsiucbM122k2+OQ3xGNJe9HmcVk+LdhBdlW/gGcb380pjZdHcc
oyuhjrynulBWBpv5OfxROpv70UX9my8X8MP1R8eskbfA3jinSNU7rLeGviLP
x/dTT/I1kEmvhToqzk3sGXWLmgEFrJ2sP4n+XX5PnFW6TKDXSe8l+nN5Q+yi
82OvfFnMblke63qox/nKqKvXS10kK4sddI7Yy9Zt0ZtLH5N3xQh+DL87nr1+
S/WILDNayt+IHFPinYuXZVv5RtjH18PTsk/4cvg87j2yoJX8TVl6TI13Luoj
K1rrvSXPgGnx3kMDZEN2tNF/Wy8jpsd7BA3RW75YVh5b494gB9rK34n5ihkx
69EIOdFO7904g5gZMxSNkQu50V5/tF4WzIrZhybIgzv1xsScwOyYZWiKvMiH
/CiAgiiEwujgM2NjD2FOzLOYm+gjXyKrgG1xL1EEHeMdIcuOuTGzYpbi2piv
euPkOTAvzn/MTRRFMRSPOWvN+/o5MT/OZcxK9JUvld2A7fwrKBFzVv6BLBcW
xLmMGYZ+8mWyivFe4V9FKu6VfxhzCAvjXMZ3ybbxjfFLzAz0ly3nK8Ws5V/D
WNkPfCsc5UviPtlHsW+xiJ/M/xEzHD3jd/ntdBPsj3mCAbIVfOWYefw8/jj9
CEby7/E/0q1jX8YMjT0uXxszWdYfp+gbY27GTIv5HHMv9iydMfawfIp6IPZC
zGe1V1yH7IuYh7Km6u44t/Hu0Vuunov/jRN0FVSwrpneQHqlvAq+pnNih3y+
eiKet3WPxhzjy8cM0xun7okzo9cm7i1fHCX54/rr6AQD9E6rNWOW6ZXS+x/R
zLh0
         "]]},
       Annotation[#, "Charting`Private`Tag$106019#6"]& ]}}], {{{}, {
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.04, 0.12385413576768851`}], 
           Offset[{0, 0}, {1.127009220904151, 0.09098839660611222}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.09098839660611222}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.09098839660611222}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.09098839660611222}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0, 0}, {1., 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.02, 0.12385413576768851`}], 
           Offset[{0., 0.}, {1.04, 0.12385413576768851`}], 
           Offset[{0, 0}, {1.127009220904151, 0.09098839660611222}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.09098839660611222}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.09098839660611222}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.09098839660611222}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{431., 11.500000000000096`}, {1.127009220904151, 
            0.09098839660611222}], 
           Offset[{431., -11.499999999999904`}, {1.127009220904151, 
            0.09098839660611222}], 
           Offset[{10., -11.499999999999996`}, {1.127009220904151, 
            0.09098839660611222}], 
           Offset[{10., 11.500000000000004`}, {1.127009220904151, 
            0.09098839660611222}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          
          RotationBox["\<\"randomly chosen ASVs between different \
microcosms\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{220.5, 4.8960835385969403*^-14}, \
{1.127009220904151, 0.09098839660611222}], {0, 0}]}], GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.04, 0.502225193586291}], 
           Offset[{0, 0}, {1.127009220904151, 0.6220987068918756}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.6220987068918756}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.6220987068918756}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.6220987068918756}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0, 0}, {1., 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.02, 0.502225193586291}], 
           Offset[{0., 0.}, {1.04, 0.502225193586291}], 
           Offset[{0, 0}, {1.127009220904151, 0.6220987068918756}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.6220987068918756}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.6220987068918756}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.6220987068918756}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{332., 9.500000000000073}, {1.127009220904151, 
            0.6220987068918756}], 
           Offset[{332., -9.499999999999927}, {1.127009220904151, 
            0.6220987068918756}], 
           Offset[{10., -9.499999999999998}, {1.127009220904151, 
            0.6220987068918756}], 
           Offset[{10., 9.500000000000002}, {1.127009220904151, 
            0.6220987068918756}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"same ASV between different microcosms\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{171., 3.7969627442180354*^-14}, \
{1.127009220904151, 0.6220987068918756}], {0, 0}]}], GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 1.5078991858563933`}], 
           Offset[{0, 0}, {1., 1.5078991858563933`}], 
           Offset[{0., 0.}, {1.02, 1.5078991858563933`}], 
           Offset[{0., 0.}, {1.02, 1.5078991858563933`}], 
           Offset[{0., 0.}, {1.04, 1.5078991858563933`}], 
           Offset[{0, 0}, {1.127009220904151, 1.4270044816436729`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            1.4270044816436729`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.4270044816436729`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.4270044816436729`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 1.5078991858563933`}], 
           Offset[{0, 0}, {1., 1.5078991858563933`}], 
           Offset[{0., 0.}, {1.02, 1.5078991858563933`}], 
           Offset[{0., 0.}, {1.02, 1.5078991858563933`}], 
           Offset[{0., 0.}, {1.04, 1.5078991858563933`}], 
           Offset[{0, 0}, {1.127009220904151, 1.4270044816436729`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            1.4270044816436729`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.4270044816436729`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.4270044816436729`}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{252., 11.500000000000055`}, {1.127009220904151, 
            1.4270044816436729`}], 
           Offset[{252., -11.499999999999945`}, {1.127009220904151, 
            1.4270044816436729`}], 
           Offset[{10., -11.499999999999998`}, {1.127009220904151, 
            1.4270044816436729`}], 
           Offset[{10., 11.500000000000002`}, {1.127009220904151, 
            1.4270044816436729`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"same ASV between repetitions\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{131., 2.90878432451791*^-14}, \
{1.127009220904151, 1.4270044816436729}], {0, 0}]}], GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.16717874549355136`}], 
           Offset[{0, 0}, {1., 0.16717874549355136`}], 
           Offset[{0., 0.}, {1.02, 0.16717874549355136`}], 
           Offset[{0., 0.}, {1.02, 0.16717874549355136`}], 
           Offset[{0., 0.}, {1.04, 0.16717874549355136`}], 
           Offset[{0, 0}, {1.127009220904151, 0.2729154038906664}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.2729154038906664}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.2729154038906664}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.2729154038906664}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.16717874549355136`}], 
           Offset[{0, 0}, {1., 0.16717874549355136`}], 
           Offset[{0., 0.}, {1.02, 0.16717874549355136`}], 
           Offset[{0., 0.}, {1.02, 0.16717874549355136`}], 
           Offset[{0., 0.}, {1.04, 0.16717874549355136`}], 
           Offset[{0, 0}, {1.127009220904151, 0.2729154038906664}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.2729154038906664}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.2729154038906664}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.2729154038906664}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{448., 11.5000000000001}, {1.127009220904151, 
            0.2729154038906664}], 
           Offset[{448., -11.4999999999999}, {1.127009220904151, 
            0.2729154038906664}], 
           Offset[{10., -11.499999999999996`}, {1.127009220904151, 
            0.2729154038906664}], 
           Offset[{10., 11.500000000000004`}, {1.127009220904151, 
            0.2729154038906664}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          
          RotationBox["\<\"randomly chosen families between different \
microcosms\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{229., 5.084821452783217*^-14}, \
{1.127009220904151, 0.2729154038906664}], {0, 0}]}], GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.4349124487346495}], 
           Offset[{0, 0}, {1., 0.4349124487346495}], 
           Offset[{0., 0.}, {1.02, 0.4349124487346495}], 
           Offset[{0., 0.}, {1.02, 0.4349124487346495}], 
           Offset[{0., 0.}, {1.04, 0.4349124487346495}], 
           Offset[{0, 0}, {1.127009220904151, 0.45487774364388545`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.45487774364388545`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.45487774364388545`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.45487774364388545`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 0.4349124487346495}], 
           Offset[{0, 0}, {1., 0.4349124487346495}], 
           Offset[{0., 0.}, {1.02, 0.4349124487346495}], 
           Offset[{0., 0.}, {1.02, 0.4349124487346495}], 
           Offset[{0., 0.}, {1.04, 0.4349124487346495}], 
           Offset[{0, 0}, {1.127009220904151, 0.45487774364388545`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            0.45487774364388545`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.45487774364388545`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            0.45487774364388545`}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{345., 11.500000000000076`}, {1.127009220904151, 
            0.45487774364388545`}], 
           Offset[{345., -11.499999999999924`}, {1.127009220904151, 
            0.45487774364388545`}], 
           Offset[{10., -11.499999999999998`}, {1.127009220904151, 
            0.45487774364388545`}], 
           Offset[{10., 11.500000000000002`}, {1.127009220904151, 
            0.45487774364388545`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"same family between different microcosms\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{177.5, 3.941291737419306*^-14}, \
{1.127009220904151, 0.45487774364388545}], {0, 0}]}], GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 1.646137922013094}], 
           Offset[{0, 0}, {1., 1.646137922013094}], 
           Offset[{0., 0.}, {1.02, 1.646137922013094}], 
           Offset[{0., 0.}, {1.02, 1.646137922013094}], 
           Offset[{0., 0.}, {1.04, 1.646137922013094}], 
           Offset[{0, 0}, {1.127009220904151, 1.6089866240710726`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            1.6089866240710726`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.6089866240710726`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.6089866240710726`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1., 1.646137922013094}], 
           Offset[{0, 0}, {1., 1.646137922013094}], 
           Offset[{0., 0.}, {1.02, 1.646137922013094}], 
           Offset[{0., 0.}, {1.02, 1.646137922013094}], 
           Offset[{0., 0.}, {1.04, 1.646137922013094}], 
           Offset[{0, 0}, {1.127009220904151, 1.6089866240710726`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.127009220904151, 
            1.6089866240710726`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.6089866240710726`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.127009220904151, 
            1.6089866240710726`}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{265., 11.500000000000059`}, {1.127009220904151, 
            1.6089866240710726`}], 
           Offset[{265., -11.499999999999941`}, {1.127009220904151, 
            1.6089866240710726`}], 
           Offset[{10., -11.499999999999998`}, {1.127009220904151, 
            1.6089866240710726`}], 
           Offset[{10., 11.500000000000002`}, {1.127009220904151, 
            1.6089866240710726`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"same family between repetitions\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->GrayLevel[0],
          LineOpacity->1,
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          GraphicsColor->GrayLevel[0],
          Opacity->1,
          FontFamily->"Europa-Light",
          FontSize->18,
          FontColor->GrayLevel[0],
          FontOpacity->1], 
         Offset[{137.5, 3.0531133177191805*^-14}, \
{1.127009220904151, 1.6089866240710726}], {0, 0}]}]}}, {}}},
  AspectRatio->0.8333333333333334,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
   FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
    "Europa-Light", FontSize -> 18},
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox["\"pdf\"", TraditionalForm], None}, {
     FormBox["\"Pearson's \[Rho]\"", TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[Medium]],
  FrameTicks->{{{{0, 
       FormBox["0", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 2], 0.5], 
       FormBox["0.5`", TraditionalForm], {0, 0.02}}, {1, 
       FormBox["1", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[3, 2], 1.5], 
       FormBox["1.5`", TraditionalForm], {0, 0.02}}}, {}}, {{{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[-1, 2], -0.5], 
       FormBox[
        RowBox[{"-", "0.5`"}], TraditionalForm], {0, 0.02}}, {0, 
       FormBox["0", TraditionalForm], {0, 0.02}}, {
       NCache[
        Rational[1, 2], 0.5], 
       FormBox["0.5`", TraditionalForm], {0, 0.02}}, {1, 
       FormBox["1", TraditionalForm], {0, 0.02}}}, {}}},
  FrameTicksStyle->GrayLevel[0],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 474.86165976274714`}, {All, All}},
  ImageSize->{Automatic, 250},
  LabelStyle->{
    GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotRange->{{-1, 1}, {0, 1.7}},
  PlotRangeClipping->False,
  PlotRangePadding->{{None, None}, {None, None}},
  Ticks->{Automatic, Automatic},
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{
  3.7811815594616632`*^9, {3.7811821581112003`*^9, 3.7811822211751966`*^9}, 
   3.781182252747161*^9, {3.7811822956256533`*^9, 3.781182353742758*^9}, {
   3.7811824535081787`*^9, 3.7811824788887467`*^9}, 3.7811825091421204`*^9, {
   3.7811835237252097`*^9, 3.7811835660092363`*^9}, 3.781366262779275*^9, {
   3.781437324058997*^9, 3.781437346448844*^9}, {3.7822500206498137`*^9, 
   3.78225004067797*^9}, {3.7830885651189203`*^9, 3.7830885892635145`*^9}, 
   3.7830886709769216`*^9, {3.7830887122923565`*^9, 3.7830887316150107`*^9}, 
   3.7830887764841075`*^9, 3.785272940756795*^9, {3.7852734734114485`*^9, 
   3.785273493047154*^9}, 3.7852735695268965`*^9, {3.7852736050854564`*^9, 
   3.7852736518505816`*^9}, {3.7852756954467587`*^9, 3.785275719769088*^9}, 
   3.7857014328514614`*^9, 3.790362080557768*^9, {3.790446259351901*^9, 
   3.790446277298975*^9}, 3.7904464111058297`*^9, 3.7905435857028313`*^9, 
   3.7906278014399242`*^9},
 CellLabel->
  "Out[617]=",ExpressionUUID->"e981c908-7480-447e-901e-2c1e312069e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"between", " ", "replicates"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"min", "=", 
     RowBox[{"Quantile", "[", 
      RowBox[{"correlationsAnyRandom", ",", "0.05"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"max", "=", 
     RowBox[{"Quantile", "[", 
      RowBox[{"correlationsAnyRandom", ",", "0.95"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"selfCorrs", "=", 
     RowBox[{"Merge", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Rule]", 
            RowBox[{"Correlation", "@@", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"GatherBy", "[", 
             RowBox[{
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{"totalExpDataCLRNoTime", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"totalExpDataCLRNoTime", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}], ",", 
              "First"}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", 
       "Identity"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"selfCorrsBoole", "=", 
     RowBox[{"Boole", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#", ">", "max"}], "||", 
            RowBox[{"#", "<", "min"}]}], "&"}], ")"}], "/@", "#"}], "&"}], "/@",
        "selfCorrs"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"alwaysCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{"#", "\[Equal]", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "@", "#"}]}], "]"}]}], "&"}]}], "]"}]}], "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"halfCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Mean", "@", "#"}], ">", "0.5"}], "&"}]}], "]"}]}], "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"atleastonceCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"#", ",", "1"}], "]"}], ">", "0"}], "&"}]}], "]"}]}], "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"neverCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"#", ",", "1"}], "]"}], "==", "0"}], "&"}]}], "]"}]}], 
      "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"pieRepeats", "=", 
    RowBox[{"PieChart", "[", 
     RowBox[{
      RowBox[{"Reverse", "@", 
       RowBox[{"{", 
        RowBox[{"alwaysCorr", ",", 
         RowBox[{"halfCorr", "-", "alwaysCorr"}], ",", 
         RowBox[{"atleastonceCorr", "-", "halfCorr"}], ",", "neverCorr"}], 
        "}"}]}], ",", 
      RowBox[{"PlotTheme", "\[Rule]", "\"\<Monochrome\>\""}], ",", 
      RowBox[{"ChartLabels", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<never correlated\>\"", ",", "\"\<at least once correlated\>\"",
            ",", "\"\<correlated more than half the time\>\"", ",", 
           "\"\<always correlated\>\""}], "}"}], ",", 
         "\"\<RadialCallout\>\""}], "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "\"\<between repetitions\>\""}]}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7905441627661967`*^9, 3.7905442239625225`*^9}, {
  3.790545129786522*^9, 3.790545134843109*^9}, {3.7906267169357557`*^9, 
  3.790626768375085*^9}, {3.790627365191213*^9, 3.7906273685172853`*^9}, {
  3.790627424358697*^9, 3.7906274298285823`*^9}, {3.790627834165121*^9, 
  3.790627857765802*^9}},
 CellLabel->
  "In[654]:=",ExpressionUUID->"5e88a089-b755-4c4c-9353-47a117d949c0"],

Cell[BoxData["0.2732919254658385`"], "Output",
 CellChangeTimes->{
  3.790626768631255*^9, 3.79062736876045*^9, 3.7906274301888294`*^9, {
   3.790627846333701*^9, 3.7906278581690874`*^9}, 3.7906285233874073`*^9},
 CellLabel->
  "Out[658]=",ExpressionUUID->"7e76993a-5410-4645-8b93-9381c7e6baf7"],

Cell[BoxData["0.33540372670807456`"], "Output",
 CellChangeTimes->{
  3.790626768631255*^9, 3.79062736876045*^9, 3.7906274301888294`*^9, {
   3.790627846333701*^9, 3.7906278581690874`*^9}, 3.7906285233913975`*^9},
 CellLabel->
  "Out[659]=",ExpressionUUID->"bd0ace58-37b7-4800-a0c6-1ff76afb601a"],

Cell[BoxData["0.5217391304347826`"], "Output",
 CellChangeTimes->{
  3.790626768631255*^9, 3.79062736876045*^9, 3.7906274301888294`*^9, {
   3.790627846333701*^9, 3.7906278581690874`*^9}, 3.7906285233943996`*^9},
 CellLabel->
  "Out[660]=",ExpressionUUID->"7dc58aef-49aa-4562-ac91-a0a742ff4f4d"],

Cell[BoxData["0.4782608695652174`"], "Output",
 CellChangeTimes->{
  3.790626768631255*^9, 3.79062736876045*^9, 3.7906274301888294`*^9, {
   3.790627846333701*^9, 3.7906278581690874`*^9}, 3.7906285233964014`*^9},
 CellLabel->
  "Out[661]=",ExpressionUUID->"3981cd9b-d2ac-42ca-814a-0242a7e41b9a"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   DynamicModuleBox[{DynamicChart`click$111934$111988 = False, 
    DynamicChart`click$111940$111988 = False, 
    DynamicChart`click$111946$111988 = False, 
    DynamicChart`click$111952$111988 = False}, {
     {RGBColor[0.5, 0.5, 1.], EdgeForm[{GrayLevel[0], Opacity[0.5]}], {{{}, {
         {GrayLevel[0.3], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {0.1365909849386866, 
                    3.141592653589793}]},
                   
                   ImageSizeCache->{{53.816555668396134`, 
                    304.02599401019563`}, {-122.18344433160391`, 
                    4.914213562373092}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.4782608695652174]& ,
                TagBoxNote->"0.4782608695652174"],
               StyleBox["0.4782608695652174`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.4782608695652174, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$111934$111988, 
                 FEPrivate`Not[DynamicChart`click$111934$111988]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$111934$111988, {{{1., 0.}, {0., 
               1.}}, {-0.013648482672934177`, 0.19953375383810784`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$111934$111988}]],
           "DelayedClickEffect"]}, 
         {GrayLevel[0.5], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {-1.0341888859643422`, 
                    0.1365909849386866}]},
                   
                   ImageSizeCache->{{178.08578643762692`, 
                    305.18344433160394`}, {-14.835538301987455`, 
                    111.71715278826221`}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.18633540372670804`]& ,
                TagBoxNote->"0.18633540372670804"],
               StyleBox["0.18633540372670804`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.18633540372670804`, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$111940$111988, 
                 FEPrivate`Not[DynamicChart`click$111940$111988]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$111940$111988, {{{1., 0.}, {0., 1.}}, {
               0.18019377358048383`, -0.08677674782351166}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$111940$111988}]],
           "DelayedClickEffect"]}, 
         {GrayLevel[0.7], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 
                    1., {-1.4244488429320183`, -1.0341888859643422`}]},
                   
                   ImageSizeCache->{{178.08578643762692`, 
                    244.4435287537662}, {2.0857864376268793`, 
                    127.85504432889141`}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.06211180124223603]& ,
                TagBoxNote->"0.06211180124223603"],
               StyleBox["0.06211180124223603`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.06211180124223603, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$111946$111988, 
                 FEPrivate`Not[DynamicChart`click$111946$111988]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$111946$111988, {{{1., 0.}, {0., 1.}}, {
               0.06697592243419717, -0.18845218442376413`}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$111946$111988}]],
           "DelayedClickEffect"]}, 
         {GrayLevel[0.8999999999999999], EdgeForm[{GrayLevel[0], Opacity[
          0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 
                    1., {-3.141592653589793, -1.4244488429320183`}]},
                   
                   ImageSizeCache->{{53.816555668396134`, 
                    199.0358538417363}, {2.0857864376269077`, 
                    129.1834443316039}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.2732919254658385]& ,
                TagBoxNote->"0.2732919254658385"],
               StyleBox["0.2732919254658385`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.2732919254658385, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$111952$111988, 
                 FEPrivate`Not[DynamicChart`click$111952$111988]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$111952$111988, {{{1., 0.}, {0., 
               1.}}, {-0.130703814682735, -0.15138200958958523`}}, {{1, 0}, {
              0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$111952$111988}]],
           "DelayedClickEffect"]}}}, {}}, {}}, {{{
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{-0.06824241336467088, 
                    0.9976687691905392}, {-0.07506665470113798, 
                    1.097435646109593}}], 
                    LineBox[{{-0.07506665470113798, 
                    1.097435646109593}, {-0.17506665470113797`, 
                    1.097435646109593}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  
                  StyleBox[
                   DiskBox[{-0.06824241336467088, 0.9976687691905392}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"never correlated\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {-0.17779635123572482, 1.097435646109593}, {1, 0}]}}},
              StatusArea[#, 0.4782608695652174]& ,
              TagBoxNote->"0.4782608695652174"],
             StyleBox["0.4782608695652174`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.4782608695652174, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$111934$111988, 
               FEPrivate`Not[DynamicChart`click$111934$111988]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$111934$111988, {{{1., 0.}, {0., 
             1.}}, {-0.013648482672934177`, 0.19953375383810784`}}, {{1, 0}, {
            0, 1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$111934$111988}]],
         "DelayedClickEffect"], 
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{0.900968867902419, -0.4338837391175583}, {
                    0.991065754692661, -0.47727211302931416`}}], 
                    LineBox[{{0.991065754692661, -0.47727211302931416`}, {
                    1.091065754692661, -0.47727211302931416`}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  
                  StyleBox[
                   DiskBox[{0.900968867902419, -0.4338837391175583}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"at least once correlated\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {1.127104509408758, -0.47727211302931416}, \
{-1, 0}]}}},
              StatusArea[#, 0.18633540372670804`]& ,
              TagBoxNote->"0.18633540372670804"],
             StyleBox["0.18633540372670804`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.18633540372670804`, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$111940$111988, 
               FEPrivate`Not[DynamicChart`click$111940$111988]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$111940$111988, {{{1., 0.}, {0., 1.}}, {
             0.18019377358048383`, -0.08677674782351166}}, {{1, 0}, {0, 
            1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$111940$111988}]],
         "DelayedClickEffect"], 
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{0.33487961217098583`, -0.9422609221188206}, {
                    0.36836757338808446`, -1.0364870143307028`}}], 
                    LineBox[{{0.36836757338808446`, -1.0364870143307028`}, {
                    0.46836757338808443`, -1.0364870143307028`}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  
                  StyleBox[
                   DiskBox[{0.33487961217098583, -0.9422609221188206}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"correlated more than half the time\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {0.48176275787492384, -1.0364870143307028}, \
{-1, 0}]}}},
              StatusArea[#, 0.06211180124223603]& ,
              TagBoxNote->"0.06211180124223603"],
             StyleBox["0.06211180124223603`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.06211180124223603, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$111946$111988, 
               FEPrivate`Not[DynamicChart`click$111946$111988]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$111946$111988, {{{1., 0.}, {0., 1.}}, {
             0.06697592243419717, -0.18845218442376413`}}, {{1, 0}, {0, 
            1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$111946$111988}]],
         "DelayedClickEffect"], 
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{-0.653519073413675, -0.756910047947926}, \
{-0.7188709807550425, -0.8326010527427187}}], 
                    LineBox[{{-0.7188709807550425, -0.8326010527427187}, \
{-0.8188709807550425, -0.8326010527427187}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  
                  StyleBox[
                   DiskBox[{-0.653519073413675, -0.756910047947926}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"always correlated\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {-0.8450117436915896, -0.8326010527427187}, \
{1, 0}]}}},
              StatusArea[#, 0.2732919254658385]& ,
              TagBoxNote->"0.2732919254658385"],
             StyleBox["0.2732919254658385`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.2732919254658385, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$111952$111988, 
               FEPrivate`Not[DynamicChart`click$111952$111988]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$111952$111988, {{{1., 0.}, {0., 
             1.}}, {-0.130703814682735, -0.15138200958958523`}}, {{1, 0}, {0, 
            1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$111952$111988}]],
         "DelayedClickEffect"]}, {}}, {}}, {}, {}},
    DynamicModuleValues:>{}], {{}, {}}, {{{}, {}, {}, {}}, {}}},
  BaseStyle->GrayLevel[0],
  ContentSelectable->False,
  DisplayFunction->Identity,
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  LabelStyle->{FontFamily -> "Helvetica", 
    GrayLevel[0]},
  PlotLabel->FormBox["\"between repetitions\"", TraditionalForm],
  PlotRange->{{-1.3, 1.3}, {-1.3, 1.3}},
  PlotRangePadding->Scaled[0.05]]], "Output",
 CellChangeTimes->{
  3.790626768631255*^9, 3.79062736876045*^9, 3.7906274301888294`*^9, {
   3.790627846333701*^9, 3.7906278581690874`*^9}, 3.790628523507493*^9},
 CellLabel->
  "Out[662]=",ExpressionUUID->"5602502c-d689-4d8d-b7ce-cfd8386af63e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"between", " ", "all"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"selfCorrs", "=", 
     RowBox[{"Merge", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Rule]", 
            RowBox[{"Correlation", "@@", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"GatherBy", "[", 
             RowBox[{
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{"totalExpDataCLRNoTime", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"totalExpDataCLRNoTime", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", "First"}], 
             "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "9"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", 
           RowBox[{"i", "+", "1"}], ",", "10"}], "}"}]}], "]"}], ",", 
       "Identity"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"selfCorrsBoole", "=", 
     RowBox[{"Boole", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#", ">", "max"}], "||", 
            RowBox[{"#", "<", "min"}]}], "&"}], ")"}], "/@", "#"}], "&"}], "/@",
        "selfCorrs"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"alwaysCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{"#", "\[Equal]", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "@", "#"}]}], "]"}]}], "&"}]}], "]"}]}], "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"halfCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Mean", "@", "#"}], ">=", "0.5"}], "&"}]}], "]"}]}], "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"atleastonceCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"#", ",", "1"}], "]"}], ">", "0"}], "&"}]}], "]"}]}], "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"neverCorr", "=", 
    RowBox[{"1.", 
     RowBox[{
      RowBox[{"Length", "@", 
       RowBox[{"Select", "[", 
        RowBox[{"selfCorrsBoole", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"#", ",", "1"}], "]"}], "==", "0"}], "&"}]}], "]"}]}], 
      "/", 
      RowBox[{"Length", "@", "selfCorrsBoole"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"pieRandom", "=", 
    RowBox[{"PieChart", "[", 
     RowBox[{
      RowBox[{"Reverse", "@", 
       RowBox[{"{", 
        RowBox[{"alwaysCorr", ",", 
         RowBox[{"halfCorr", "-", "alwaysCorr"}], ",", 
         RowBox[{"atleastonceCorr", "-", "halfCorr"}], ",", "neverCorr"}], 
        "}"}]}], ",", 
      RowBox[{"PlotTheme", "\[Rule]", "\"\<Monochrome\>\""}], ",", 
      RowBox[{"ChartLabels", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<never correlated\>\"", ",", "\"\<at least once correlated\>\"",
            ",", "\"\<correlated more than half the time\>\"", ",", 
           "\"\<always correlated\>\""}], "}"}], ",", 
         "\"\<RadialCallout\>\""}], "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "\"\<between all microcosms\>\""}], ",", 
      RowBox[{"SectorOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "\"\<Counterclockwise\>\""}], "}"}]}]}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.790626775063816*^9, 3.790626775910423*^9}, 
   3.790627359511179*^9, {3.7906273974627852`*^9, 3.790627415988776*^9}, {
   3.7906275267261124`*^9, 3.7906275474175596`*^9}, 3.790627583319998*^9, {
   3.790627865318164*^9, 3.790627868260237*^9}},
 CellLabel->
  "In[643]:=",ExpressionUUID->"ca873a6c-986e-4e53-913c-f33c22e223d1"],

Cell[BoxData["0.07758620689655173`"], "Output",
 CellChangeTimes->{
  3.790627360768079*^9, 3.7906274163910513`*^9, {3.790627538962773*^9, 
   3.790627548162092*^9}, 3.790627583813366*^9, 3.7906278686595216`*^9},
 CellLabel->
  "Out[645]=",ExpressionUUID->"b585d288-ba82-44fd-9516-4d41e390a44d"],

Cell[BoxData["0.1206896551724138`"], "Output",
 CellChangeTimes->{
  3.790627360768079*^9, 3.7906274163910513`*^9, {3.790627538962773*^9, 
   3.790627548162092*^9}, 3.790627583813366*^9, 3.790627868662533*^9},
 CellLabel->
  "Out[646]=",ExpressionUUID->"261814da-8323-4a0f-9275-5305e027f971"],

Cell[BoxData["0.43103448275862066`"], "Output",
 CellChangeTimes->{
  3.790627360768079*^9, 3.7906274163910513`*^9, {3.790627538962773*^9, 
   3.790627548162092*^9}, 3.790627583813366*^9, 3.790627868665524*^9},
 CellLabel->
  "Out[647]=",ExpressionUUID->"5a2a1c14-1fdc-40a5-88b2-697f92e53a93"],

Cell[BoxData["0.5689655172413793`"], "Output",
 CellChangeTimes->{
  3.790627360768079*^9, 3.7906274163910513`*^9, {3.790627538962773*^9, 
   3.790627548162092*^9}, 3.790627583813366*^9, 3.7906278686685266`*^9},
 CellLabel->
  "Out[648]=",ExpressionUUID->"fc49b626-3e64-48b6-9710-cd0614238c6e"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   DynamicModuleBox[{DynamicChart`click$110594$110648 = False, 
    DynamicChart`click$110600$110648 = False, 
    DynamicChart`click$110606$110648 = False, 
    DynamicChart`click$110612$110648 = False}, {
     {RGBColor[0.5, 0.5, 1.], EdgeForm[{GrayLevel[0], Opacity[0.5]}], {{{}, {
         {GrayLevel[0.3], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    DiskBox[{0, 0}, 1., {0., 3.574915778222868}]},
                   
                   ImageSizeCache->{{53.816555668396134`, 
                    305.18344433160394`}, {-122.1834443316039, 
                    57.09350922165059}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.5689655172413793]& ,
                TagBoxNote->"0.5689655172413793"],
               StyleBox["0.5689655172413793`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.5689655172413793, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$110594$110648, 
                 FEPrivate`Not[DynamicChart`click$110594$110648]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$110594$110648, {{{1., 0.}, {0., 
               1.}}, {-0.04299408804220482, 0.19532411114201734`}}, {{1, 0}, {
              0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$110594$110648}]],
           "DelayedClickEffect"]}, 
         {GrayLevel[0.5], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {3.574915778222868, 
                    5.524869839071705}]},
                   
                   ImageSizeCache->{{65.30208717005529, 
                    271.13311488558986`}, {2.0857864376269077`, 
                    129.1834443316039}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.31034482758620685`]& ,
                TagBoxNote->"0.31034482758620685"],
               StyleBox["0.31034482758620685`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.31034482758620685`, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$110600$110648, 
                 FEPrivate`Not[DynamicChart`click$110600$110648]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$110600$110648, {{{1., 0.}, {0., 
               1.}}, {-0.03235639931055295, -0.19736530450830525`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$110600$110648}]],
           "DelayedClickEffect"]}, 
         {GrayLevel[0.7], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {5.524869839071705, 
                    5.795696791967377}]},
                   
                   ImageSizeCache->{{178.08578643762692`, 
                    290.7075757010308}, {2.0857864376268793`, 
                    90.37409631450429}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.04310344827586207]& ,
                TagBoxNote->"0.04310344827586207"],
               StyleBox["0.04310344827586207`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.04310344827586207, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$110606$110648, 
                 FEPrivate`Not[DynamicChart`click$110606$110648]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$110606$110648, {{{1., 0.}, {0., 1.}}, {
               0.1624377745560422, -0.11667891582149886`}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$110606$110648}]],
           "DelayedClickEffect"]}, 
         {GrayLevel[0.8999999999999999], EdgeForm[{GrayLevel[0], Opacity[
          0.5]}], 
          TagBox[GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[{
                 TagBox[
                  DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {5.795696791967377, 
                    6.283185307179586}]},
                   
                   ImageSizeCache->{{178.08578643762692`, 
                    305.18344433160394`}, {2.085786437626872, 
                    63.12297017395083}}],
                  "DelayedMouseEffectStyle"], {}},
                StatusArea[#, 0.07758620689655173]& ,
                TagBoxNote->"0.07758620689655173"],
               StyleBox["0.07758620689655173`", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, StripOnInput -> False]],
              Annotation[#, 
               Style[0.07758620689655173, {FontFamily -> "Helvetica", 
                 GrayLevel[0]}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> 
               FEPrivate`Set[DynamicChart`click$110612$110648, 
                 FEPrivate`Not[DynamicChart`click$110612$110648]], 
               PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
               True}]], Dynamic[
            FEPrivate`If[
             DynamicChart`click$110612$110648, {{{1., 0.}, {0., 1.}}, {
               0.19408822965064226`, -0.04826757825994122}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$110612$110648}]],
           "DelayedClickEffect"]}}}, {}}, {}}, {{{
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{-0.2149704402110241, 
                    0.9766205557100867}, {-0.23646748423212652`, 
                    1.0742826112810955`}}], 
                    LineBox[{{-0.23646748423212652`, 
                    1.0742826112810955`}, {-0.3364674842321265, 
                    1.0742826112810955`}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  StyleBox[
                   DiskBox[{-0.2149704402110241, 0.9766205557100867}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"never correlated\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {-0.3450663018405675, 1.0742826112810955}, {1, 0}]}}},
              StatusArea[#, 0.5689655172413793]& ,
              TagBoxNote->"0.5689655172413793"],
             StyleBox["0.5689655172413793`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.5689655172413793, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$110594$110648, 
               FEPrivate`Not[DynamicChart`click$110594$110648]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$110594$110648, {{{1., 0.}, {0., 
             1.}}, {-0.04299408804220482, 0.19532411114201734`}}, {{1, 0}, {0,
             1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$110594$110648}]],
         "DelayedClickEffect"], 
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{-0.16178199655276476`, -0.9868265225415261}, \
{-0.17796019620804127`, -1.0855091747956789`}}], 
                    LineBox[{{-0.17796019620804127`, -1.0855091747956789`}, \
{-0.27796019620804124`, -1.0855091747956789`}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  
                  StyleBox[
                   DiskBox[{-0.16178199655276476, -0.9868265225415261}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"at least once correlated\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {-0.28443147607015185, -1.0855091747956789}, \
{1, 0}]}}},
              StatusArea[#, 0.31034482758620685`]& ,
              TagBoxNote->"0.31034482758620685"],
             StyleBox["0.31034482758620685`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.31034482758620685`, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$110600$110648, 
               FEPrivate`Not[DynamicChart`click$110600$110648]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$110600$110648, {{{1., 0.}, {0., 
             1.}}, {-0.03235639931055295, -0.19736530450830525`}}, {{1, 0}, {
            0, 1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$110600$110648}]],
         "DelayedClickEffect"], 
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{0.8121888727802109, -0.5833945791074943}, {
                    0.8934077600582321, -0.6417340370182437}}], 
                    LineBox[{{0.8934077600582321, -0.6417340370182437}, {
                    0.9934077600582321, -0.6417340370182437}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  
                  StyleBox[
                   DiskBox[{0.8121888727802109, -0.5833945791074943}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"correlated more than half the time\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {1.0258953149694405, -0.6417340370182437}, \
{-1, 0}]}}},
              StatusArea[#, 0.04310344827586207]& ,
              TagBoxNote->"0.04310344827586207"],
             StyleBox["0.04310344827586207`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.04310344827586207, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$110606$110648, 
               FEPrivate`Not[DynamicChart`click$110606$110648]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$110606$110648, {{{1., 0.}, {0., 1.}}, {
             0.1624377745560422, -0.11667891582149886`}}, {{1, 0}, {0, 1}}, {{
            1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$110606$110648}]],
         "DelayedClickEffect"], 
        TagBox[GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {{}, {
                 {GrayLevel[0], Thickness[0.002], Opacity[1], 
                  
                  StyleBox[{
                    LineBox[{{0.9704411482532113, -0.2413378912997061}, {
                    1.0674852630785325`, -0.2654716804296767}}], 
                    LineBox[{{1.0674852630785325`, -0.2654716804296767}, {
                    1.1674852630785326`, -0.2654716804296767}}]},
                   FontFamily->"Helvetica"]}, 
                 {GrayLevel[0], Opacity[1], 
                  
                  StyleBox[
                   DiskBox[{0.9704411482532113, -0.2413378912997061}, 
                    0.016666666666666666],
                   FontFamily->"Helvetica"]}, InsetBox[
                  StyleBox["\<\"always correlated\"\>",
                   StripOnInput->False,
                   LineColor->GrayLevel[0],
                   FrontFaceColor->GrayLevel[0],
                   BackFaceColor->GrayLevel[0],
                   GraphicsColor->GrayLevel[0],
                   FontFamily->"Helvetica",
                   
                   FontColor->GrayLevel[
                    0]], {1.206302909008661, -0.2654716804296767}, {-1, 0}]}}},
              StatusArea[#, 0.07758620689655173]& ,
              TagBoxNote->"0.07758620689655173"],
             StyleBox["0.07758620689655173`", {FontFamily -> "Helvetica", 
               GrayLevel[0]}, StripOnInput -> False]],
            Annotation[#, 
             Style[0.07758620689655173, {FontFamily -> "Helvetica", 
               GrayLevel[0]}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$110612$110648, 
               FEPrivate`Not[DynamicChart`click$110612$110648]], 
             PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
             True}]], Dynamic[
          FEPrivate`If[
           DynamicChart`click$110612$110648, {{{1., 0.}, {0., 1.}}, {
             0.19408822965064226`, -0.04826757825994122}}, {{1, 0}, {0, 
            1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$110612$110648}]],
         "DelayedClickEffect"]}, {}}, {}}, {}, {}},
    DynamicModuleValues:>{}], {{}, {}}, {{{}, {}, {}, {}}, {}}},
  BaseStyle->GrayLevel[0],
  ContentSelectable->False,
  DisplayFunction->Identity,
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  LabelStyle->{FontFamily -> "Helvetica", 
    GrayLevel[0]},
  PlotLabel->FormBox["\"between all microcosms\"", TraditionalForm],
  PlotRange->{{-1.3, 1.3}, {-1.3, 1.3}},
  PlotRangePadding->Scaled[0.05]]], "Output",
 CellChangeTimes->{
  3.790627360768079*^9, 3.7906274163910513`*^9, {3.790627538962773*^9, 
   3.790627548162092*^9}, 3.790627583813366*^9, 3.7906278687565894`*^9},
 CellLabel->
  "Out[649]=",ExpressionUUID->"47ba7dac-bf46-4e0e-a4f4-7cd2374d3c8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"pieRandom", ",", "pieRepeats"}], "}"}], "}"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<Fig. S3a.pdf\>\""}], 
   ",", "%"}], "]"}]}], "Input",
 CellChangeTimes->{{3.790545143690383*^9, 3.7905451962486134`*^9}, {
   3.7905452265861187`*^9, 3.790545288872755*^9}, 3.790545367001102*^9, {
   3.790627391126305*^9, 3.790627394244523*^9}, {3.790627435445553*^9, 
   3.7906274545802546`*^9}, {3.790627891199462*^9, 3.7906279119411583`*^9}},
 CellLabel->
  "In[651]:=",ExpressionUUID->"31a22f28-6315-4975-9438-11618d5be432"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{}, {}, 
       DynamicModuleBox[{DynamicChart`click$110594$111162 = False, 
        DynamicChart`click$110600$111162 = False, 
        DynamicChart`click$110606$111162 = False, 
        DynamicChart`click$110612$111162 = False}, {
         {RGBColor[0.5, 0.5, 1.], EdgeForm[{GrayLevel[0], Opacity[
          0.5]}], {{{}, {
             {GrayLevel[0.3], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    DiskBox[{0, 0}, 1., {0., 3.574915778222868}]},
                    
                    ImageSizeCache->{{26.124247976088427`, 
                    152.87575202391153`}, {-59.87575202391156, 
                    30.931188278280274`}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.5689655172413793]& ,
                    TagBoxNote->"0.5689655172413793"],
                   StyleBox["0.5689655172413793`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.5689655172413793, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110594$111162, 
                    FEPrivate`Not[DynamicChart`click$110594$111162]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110594$111162, {{{1., 0.}, {0., 
                   1.}}, {-0.04299408804220482, 0.19532411114201734`}}, {{1, 
                  0}, {0, 1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110594$111162}]],
               "DelayedClickEffect"]}, 
             {GrayLevel[0.5], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {3.574915778222868, 
                    5.524869839071705}]},
                    
                    ImageSizeCache->{{31.85101716493798, 
                    135.89801115807168`}, {2.0857864376268935`, 
                    66.87575202391157}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.31034482758620685`]& ,
                    TagBoxNote->"0.31034482758620685"],
                   StyleBox[
                   "0.31034482758620685`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.31034482758620685`, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110600$111162, 
                    FEPrivate`Not[DynamicChart`click$110600$111162]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110600$111162, {{{1., 0.}, {0., 
                   1.}}, {-0.03235639931055295, -0.19736530450830525`}}, {{1, 
                  0}, {0, 1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110600$111162}]],
               "DelayedClickEffect"]}, 
             {GrayLevel[0.7], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {5.524869839071705, 
                    5.795696791967377}]},
                    
                    ImageSizeCache->{{88.0857864376269, 
                    145.65797908554785`}, {2.0857864376268935`, 
                    47.52513003209869}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.04310344827586207]& ,
                    TagBoxNote->"0.04310344827586207"],
                   StyleBox[
                   "0.04310344827586207`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.04310344827586207, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110606$111162, 
                    FEPrivate`Not[DynamicChart`click$110606$111162]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110606$111162, {{{1., 0.}, {0., 1.}}, {
                   0.1624377745560422, -0.11667891582149886`}}, {{1, 0}, {0, 
                  1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110606$111162}]],
               "DelayedClickEffect"]}, 
             {GrayLevel[0.8999999999999999], EdgeForm[{GrayLevel[0], Opacity[
              0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {5.795696791967377, 
                    6.283185307179586}]},
                    
                    ImageSizeCache->{{88.0857864376269, 
                    152.87575202391156`}, {2.085786437626897, 
                    33.9375211765024}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.07758620689655173]& ,
                    TagBoxNote->"0.07758620689655173"],
                   StyleBox[
                   "0.07758620689655173`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.07758620689655173, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110612$111162, 
                    FEPrivate`Not[DynamicChart`click$110612$111162]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110612$111162, {{{1., 0.}, {0., 1.}}, {
                   0.19408822965064226`, -0.04826757825994122}}, {{1, 0}, {0, 
                  1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110612$111162}]],
               "DelayedClickEffect"]}}}, {}}, {}}, {{{
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    StyleBox[{
                    LineBox[{{-0.2149704402110241, 
                    0.9766205557100867}, {-0.23646748423212652`, 
                    1.0742826112810955`}}], 
                    LineBox[{{-0.23646748423212652`, 
                    1.0742826112810955`}, {-0.3364674842321265, 
                    1.0742826112810955`}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{-0.2149704402110241, 0.9766205557100867}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"never correlated\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    
                    FontColor->GrayLevel[
                    0]], {-0.3450663018405675, 1.0742826112810955}, {1, 0}]}}},
                  StatusArea[#, 0.5689655172413793]& ,
                  TagBoxNote->"0.5689655172413793"],
                 StyleBox["0.5689655172413793`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.5689655172413793, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110594$111162, 
                   FEPrivate`Not[DynamicChart`click$110594$111162]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110594$111162, {{{1., 0.}, {0., 
                 1.}}, {-0.04299408804220482, 0.19532411114201734`}}, {{1, 
                0}, {0, 1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110594$111162}]],
             "DelayedClickEffect"], 
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    
                    StyleBox[{
                    LineBox[{{-0.16178199655276476`, -0.9868265225415261}, \
{-0.17796019620804127`, -1.0855091747956789`}}], 
                    LineBox[{{-0.17796019620804127`, -1.0855091747956789`}, \
{-0.27796019620804124`, -1.0855091747956789`}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{-0.16178199655276476, -0.9868265225415261}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"at least once correlated\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    
                    FontColor->GrayLevel[
                    0]], {-0.28443147607015185, -1.0855091747956789}, \
{1, 0}]}}},
                  StatusArea[#, 0.31034482758620685`]& ,
                  TagBoxNote->"0.31034482758620685"],
                 StyleBox["0.31034482758620685`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.31034482758620685`, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110600$111162, 
                   FEPrivate`Not[DynamicChart`click$110600$111162]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110600$111162, {{{1., 0.}, {0., 
                 1.}}, {-0.03235639931055295, -0.19736530450830525`}}, {{1, 0}
                , {0, 1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110600$111162}]],
             "DelayedClickEffect"], 
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    
                    StyleBox[{
                    LineBox[{{0.8121888727802109, -0.5833945791074943}, {
                    0.8934077600582321, -0.6417340370182437}}], 
                    LineBox[{{0.8934077600582321, -0.6417340370182437}, {
                    0.9934077600582321, -0.6417340370182437}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{0.8121888727802109, -0.5833945791074943}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"correlated more than half the time\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    
                    FontColor->GrayLevel[
                    0]], {1.0258953149694405, -0.6417340370182437}, \
{-1, 0}]}}},
                  StatusArea[#, 0.04310344827586207]& ,
                  TagBoxNote->"0.04310344827586207"],
                 StyleBox["0.04310344827586207`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.04310344827586207, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110606$111162, 
                   FEPrivate`Not[DynamicChart`click$110606$111162]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110606$111162, {{{1., 0.}, {0., 1.}}, {
                 0.1624377745560422, -0.11667891582149886`}}, {{1, 0}, {0, 
                1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110606$111162}]],
             "DelayedClickEffect"], 
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    
                    StyleBox[{
                    LineBox[{{0.9704411482532113, -0.2413378912997061}, {
                    1.0674852630785325`, -0.2654716804296767}}], 
                    LineBox[{{1.0674852630785325`, -0.2654716804296767}, {
                    1.1674852630785326`, -0.2654716804296767}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{0.9704411482532113, -0.2413378912997061}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"always correlated\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    
                    FontColor->GrayLevel[
                    0]], {1.206302909008661, -0.2654716804296767}, {-1, 0}]}}},
                  StatusArea[#, 0.07758620689655173]& ,
                  TagBoxNote->"0.07758620689655173"],
                 StyleBox["0.07758620689655173`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.07758620689655173, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110612$111162, 
                   FEPrivate`Not[DynamicChart`click$110612$111162]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110612$111162, {{{1., 0.}, {0., 1.}}, {
                 0.19408822965064226`, -0.04826757825994122}}, {{1, 0}, {0, 
                1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110612$111162}]],
             "DelayedClickEffect"]}, {}}, {}}, {}, {}},
        DynamicModuleValues:>{}], {{}, {}}, {{{}, {}, {}, {}}, {}}},
      BaseStyle->GrayLevel[0],
      ContentSelectable->False,
      DisplayFunction->Identity,
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      LabelStyle->{FontFamily -> "Helvetica", 
        GrayLevel[0]},
      PlotLabel->FormBox["\"between all microcosms\"", TraditionalForm],
      PlotRange->{{-1.3, 1.3}, {-1.3, 1.3}},
      PlotRangePadding->Scaled[0.05]], 
     GraphicsBox[{{}, {}, 
       DynamicModuleBox[{DynamicChart`click$110207$111168 = False, 
        DynamicChart`click$110213$111168 = False, 
        DynamicChart`click$110219$111168 = False, 
        DynamicChart`click$110225$111168 = False}, {
         {RGBColor[0.5, 0.5, 1.], EdgeForm[{GrayLevel[0], Opacity[
          0.5]}], {{{}, {
             {GrayLevel[0.3], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    DiskBox[{0, 0}, 1., {0.1365909849386866, 
                    3.141592653589793}]},
                    
                    ImageSizeCache->{{26.124247976088427`, 
                    152.2986389110088}, {-59.875752023911566`, 
                    4.914213562373114}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.4782608695652174]& ,
                    TagBoxNote->"0.4782608695652174"],
                   StyleBox["0.4782608695652174`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.4782608695652174, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110207$111168, 
                    FEPrivate`Not[DynamicChart`click$110207$111168]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110207$111168, {{{1., 0.}, {0., 
                   1.}}, {-0.013648482672934177`, 0.19953375383810784`}}, {{1,
                   0}, {0, 1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110207$111168}]],
               "DelayedClickEffect"]}, 
             {GrayLevel[0.5], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 1., {-1.0341888859643422`, 
                    0.1365909849386866}]},
                    
                    ImageSizeCache->{{88.0857864376269, 
                    152.87575202391156`}, {-6.351308627529001, 
                    58.16693256358244}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.18633540372670804`]& ,
                    TagBoxNote->"0.18633540372670804"],
                   StyleBox[
                   "0.18633540372670804`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.18633540372670804`, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110213$111168, 
                    FEPrivate`Not[DynamicChart`click$110213$111168]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110213$111168, {{{1., 0.}, {0., 1.}}, {
                   0.18019377358048383`, -0.08677674782351166}}, {{1, 0}, {0, 
                  1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110213$111168}]],
               "DelayedClickEffect"]}, 
             {GrayLevel[0.7], EdgeForm[{GrayLevel[0], Opacity[0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 
                    1., {-1.4244488429320183`, -1.0341888859643422`}]},
                    
                    ImageSizeCache->{{88.08578643762691, 
                    122.59039021769166`}, {2.0857864376269077`, 
                    66.21340216183486}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.06211180124223603]& ,
                    TagBoxNote->"0.06211180124223603"],
                   StyleBox[
                   "0.06211180124223603`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.06211180124223603, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110219$111168, 
                    FEPrivate`Not[DynamicChart`click$110219$111168]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110219$111168, {{{1., 0.}, {0., 1.}}, {
                   0.06697592243419717, -0.18845218442376413`}}, {{1, 0}, {0, 
                  1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110219$111168}]],
               "DelayedClickEffect"]}, 
             {GrayLevel[0.8999999999999999], EdgeForm[{GrayLevel[0], Opacity[
              0.5]}], 
              TagBox[GeometricTransformationBox[
                TagBox[
                 TagBox[
                  TooltipBox[
                   TagBox[{
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    DiskBox[{0, 0}, 
                    1., {-3.141592653589793, -1.4244488429320183`}]},
                    
                    ImageSizeCache->{{26.124247976088437`, 
                    99.94979464874083}, {2.0857864376269077`, 
                    66.87575202391157}}],
                    "DelayedMouseEffectStyle"], {}},
                    StatusArea[#, 0.2732919254658385]& ,
                    TagBoxNote->"0.2732919254658385"],
                   StyleBox["0.2732919254658385`", {FontFamily -> "Helvetica", 
                    GrayLevel[0]}, StripOnInput -> False]],
                  Annotation[#, 
                   Style[0.2732919254658385, {FontFamily -> "Helvetica", 
                    GrayLevel[0]}], "Tooltip"]& ],
                 
                 EventHandlerTag[{
                  "MouseClicked" :> 
                   FEPrivate`Set[DynamicChart`click$110225$111168, 
                    FEPrivate`Not[DynamicChart`click$110225$111168]], 
                   PassEventsDown -> True, Method -> "Preemptive", 
                   PassEventsUp -> True}]], Dynamic[
                FEPrivate`If[
                 DynamicChart`click$110225$111168, {{{1., 0.}, {0., 
                   1.}}, {-0.130703814682735, -0.15138200958958523`}}, {{1, 
                  0}, {0, 1}}, {{1, 0}, {0, 1}}], 
                 TrackedSymbols :> {DynamicChart`click$110225$111168}]],
               "DelayedClickEffect"]}}}, {}}, {}}, {{{
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    
                    StyleBox[{
                    LineBox[{{-0.06824241336467088, 
                    0.9976687691905392}, {-0.07506665470113798, 
                    1.097435646109593}}], 
                    LineBox[{{-0.07506665470113798, 
                    1.097435646109593}, {-0.17506665470113797`, 
                    1.097435646109593}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{-0.06824241336467088, 0.9976687691905392}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"never correlated\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    FontColor->GrayLevel[
                    0]], {-0.17779635123572482, 1.097435646109593}, {1, 0}]}}},
                  StatusArea[#, 0.4782608695652174]& ,
                  TagBoxNote->"0.4782608695652174"],
                 StyleBox["0.4782608695652174`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.4782608695652174, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110207$111168, 
                   FEPrivate`Not[DynamicChart`click$110207$111168]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110207$111168, {{{1., 0.}, {0., 
                 1.}}, {-0.013648482672934177`, 0.19953375383810784`}}, {{1, 
                0}, {0, 1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110207$111168}]],
             "DelayedClickEffect"], 
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    
                    StyleBox[{
                    LineBox[{{0.900968867902419, -0.4338837391175583}, {
                    0.991065754692661, -0.47727211302931416`}}], 
                    LineBox[{{0.991065754692661, -0.47727211302931416`}, {
                    1.091065754692661, -0.47727211302931416`}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{0.900968867902419, -0.4338837391175583}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"at least once correlated\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    
                    FontColor->GrayLevel[
                    0]], {1.127104509408758, -0.47727211302931416}, \
{-1, 0}]}}},
                  StatusArea[#, 0.18633540372670804`]& ,
                  TagBoxNote->"0.18633540372670804"],
                 StyleBox["0.18633540372670804`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.18633540372670804`, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110213$111168, 
                   FEPrivate`Not[DynamicChart`click$110213$111168]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110213$111168, {{{1., 0.}, {0., 1.}}, {
                 0.18019377358048383`, -0.08677674782351166}}, {{1, 0}, {0, 
                1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110213$111168}]],
             "DelayedClickEffect"], 
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    
                    StyleBox[{
                    LineBox[{{0.33487961217098583`, -0.9422609221188206}, {
                    0.36836757338808446`, -1.0364870143307028`}}], 
                    LineBox[{{0.36836757338808446`, -1.0364870143307028`}, {
                    0.46836757338808443`, -1.0364870143307028`}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{0.33487961217098583, -0.9422609221188206}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"correlated more than half the time\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    
                    FontColor->GrayLevel[
                    0]], {0.48176275787492384, -1.0364870143307028}, \
{-1, 0}]}}},
                  StatusArea[#, 0.06211180124223603]& ,
                  TagBoxNote->"0.06211180124223603"],
                 StyleBox["0.06211180124223603`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.06211180124223603, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110219$111168, 
                   FEPrivate`Not[DynamicChart`click$110219$111168]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110219$111168, {{{1., 0.}, {0., 1.}}, {
                 0.06697592243419717, -0.18845218442376413`}}, {{1, 0}, {0, 
                1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110219$111168}]],
             "DelayedClickEffect"], 
            TagBox[GeometricTransformationBox[
              TagBox[
               TagBox[
                TooltipBox[
                 TagBox[{{}, {{}, {
                    {GrayLevel[0], Thickness[0.002], Opacity[1], 
                    
                    StyleBox[{
                    LineBox[{{-0.653519073413675, -0.756910047947926}, \
{-0.7188709807550425, -0.8326010527427187}}], 
                    LineBox[{{-0.7188709807550425, -0.8326010527427187}, \
{-0.8188709807550425, -0.8326010527427187}}]},
                    FontFamily->"Helvetica"]}, 
                    {GrayLevel[0], Opacity[1], 
                    
                    StyleBox[
                    DiskBox[{-0.653519073413675, -0.756910047947926}, 
                    0.016666666666666666],
                    FontFamily->"Helvetica"]}, InsetBox[
                    StyleBox["\<\"always correlated\"\>",
                    StripOnInput->False,
                    LineColor->GrayLevel[0],
                    FrontFaceColor->GrayLevel[0],
                    BackFaceColor->GrayLevel[0],
                    GraphicsColor->GrayLevel[0],
                    FontFamily->"Helvetica",
                    
                    FontColor->GrayLevel[
                    0]], {-0.8450117436915896, -0.8326010527427187}, \
{1, 0}]}}},
                  StatusArea[#, 0.2732919254658385]& ,
                  TagBoxNote->"0.2732919254658385"],
                 StyleBox["0.2732919254658385`", {FontFamily -> "Helvetica", 
                   GrayLevel[0]}, StripOnInput -> False]],
                Annotation[#, 
                 Style[0.2732919254658385, {FontFamily -> "Helvetica", 
                   GrayLevel[0]}], "Tooltip"]& ],
               
               EventHandlerTag[{
                "MouseClicked" :> 
                 FEPrivate`Set[DynamicChart`click$110225$111168, 
                   FEPrivate`Not[DynamicChart`click$110225$111168]], 
                 PassEventsDown -> True, Method -> "Preemptive", PassEventsUp -> 
                 True}]], Dynamic[
              FEPrivate`If[
               DynamicChart`click$110225$111168, {{{1., 0.}, {0., 
                 1.}}, {-0.130703814682735, -0.15138200958958523`}}, {{1, 
                0}, {0, 1}}, {{1, 0}, {0, 1}}], 
               TrackedSymbols :> {DynamicChart`click$110225$111168}]],
             "DelayedClickEffect"]}, {}}, {}}, {}, {}},
        DynamicModuleValues:>{}], {{}, {}}, {{{}, {}, {}, {}}, {}}},
      BaseStyle->GrayLevel[0],
      ContentSelectable->False,
      DisplayFunction->Identity,
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      LabelStyle->{FontFamily -> "Helvetica", 
        GrayLevel[0]},
      PlotLabel->FormBox["\"between repetitions\"", TraditionalForm],
      PlotRange->{{-1.3, 1.3}, {-1.3, 1.3}},
      PlotRangePadding->Scaled[0.05]]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.7906274383426065`*^9, 3.790627454907447*^9}, 
   3.790627614463064*^9, 3.7906278735139613`*^9, 3.790627912642654*^9},
 CellLabel->
  "Out[651]=",ExpressionUUID->"9182bba4-9c6f-4ddf-b072-0ebdded50fc5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Probability of same fate across microcosms", "Subsection",
 CellChangeTimes->{{3.775479814947832*^9, 
  3.775479827805925*^9}},ExpressionUUID->"808e00ac-e3da-45eb-bf8d-\
67296cc44816"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"presentAtAllPastT0", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{"#", ",", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", 
               RowBox[{"2", ";;", 
                RowBox[{"-", "1"}]}]}], "]"}], "]"}], ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"x", ">", " ", "0.00"}]}]}], "]"}], "&"}]}], "]"}], 
       "&"}], "/@", 
      RowBox[{"(", "totalExpDataCompositionNoTime", 
       RowBox[{"(*", 
        RowBox[{"/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x_", "/;", 
            RowBox[{"x", "<", "0.005"}]}], "\[Rule]", "0"}], "}"}]}], "*)"}], 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"presentAtAllPastT0", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"#", "/", 
          RowBox[{"Total", "@", 
           RowBox[{"presentAtAllPastT0", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}]}], "&"}], "/@", 
        RowBox[{"presentAtAllPastT0", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "All", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "20"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"meanFinalAbundance", "=", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Mean", "/@", "#"}], "&"}], "/@", 
           RowBox[{
            RowBox[{"GatherBy", "[", 
             RowBox[{
              RowBox[{"Select", "[", 
               RowBox[{
                RowBox[{"GatherBy", "[", 
                 RowBox[{
                  RowBox[{"Flatten", "[", 
                   RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Transpose", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ConstantArray", "[", 
                    RowBox[{"i", ",", 
                    RowBox[{"Length", "@", "#"}]}], "]"}], ",", 
                    RowBox[{"1.", "#"}]}], "}"}], "]"}], "&"}], "@", 
                    RowBox[{"presentAtAllPastT0", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", 
                    "1"}], "]"}], ",", 
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", ",", "1"}], "]"}], "]"}], "&"}]}], "]"}], 
                ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Length", "@", "#"}], ">", "1"}], "&"}]}], "]"}], 
              ",", "Length"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"#", ",", "All", ",", "All", ",", "2", ",", "2", ",", 
              RowBox[{
               RowBox[{"-", "5"}], ";;", 
               RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ")"}], "&"}], "/@", 
        RowBox[{"Range", "@", "9"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "@", "#"}], ">", "0"}], "&"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ErrorListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Length", "@", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{"Ceiling", "/@", "meanFinalAbundance"}], ")"}]}], ",", 
             RowBox[{"Mean", "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Differences", "@", "#"}], "\[Equal]", 
                    RowBox[{"ConstantArray", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"Length", "@", "#"}], "-", "1"}]}], "]"}]}], ",", 
                    "1", ",", "0"}], "]"}], "&"}], "/@", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"Ceiling", "/@", "meanFinalAbundance"}], ")"}], 
                   "[", 
                   RowBox[{"[", "#", "]"}], "]"}]}], "&"}], "/@", 
                RowBox[{"Range", "@", 
                 RowBox[{"Length", "@", "meanFinalAbundance"}]}]}], ")"}]}]}],
             "}"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"ErrorBar", "[", 
             RowBox[{
              RowBox[{"1", "/", "2"}], 
              RowBox[{"StandardDeviation", "@", "#"}]}], "]"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Differences", "@", "#"}], "\[Equal]", 
                   RowBox[{"ConstantArray", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"Length", "@", "#"}], "-", "1"}]}], "]"}]}], ",", 
                  "1", ",", "0"}], "]"}], "&"}], "/@", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"Ceiling", "/@", "meanFinalAbundance"}], ")"}], "[", 
                RowBox[{"[", "#", "]"}], "]"}]}], "&"}], "/@", 
             RowBox[{"Range", "@", 
              RowBox[{"Length", "@", "meanFinalAbundance"}]}]}], ")"}]}]}], 
         "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", "6.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0.5", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<number of microcosms ASV is present in\>\"", ",", 
          "\"\<P(same fate in all MCs)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Range", "[", 
           RowBox[{"2", ",", "10"}], "]"}], ",", 
          SuperscriptBox[
           RowBox[{"(", "0.5", ")"}], 
           RowBox[{"Range", "[", 
            RowBox[{"1", ",", "9"}], "]"}]]}], "}"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.772454921257824*^9, 3.772455001732623*^9}, {
   3.7724550355833645`*^9, 3.7724550876744585`*^9}, {3.7724551816376395`*^9, 
   3.772455237585827*^9}, {3.7724557328363914`*^9, 3.7724557332074313`*^9}, {
   3.7725433543812027`*^9, 3.7725433587036448`*^9}, {3.775479854346516*^9, 
   3.775479946161394*^9}, {3.7754799774995537`*^9, 3.775479978137005*^9}, {
   3.7754800290573936`*^9, 3.7754800356194773`*^9}, {3.7857003294343934`*^9, 
   3.7857003349853177`*^9}, 3.785701484351878*^9, {3.7857016021071424`*^9, 
   3.785701619941762*^9}, {3.790362279289342*^9, 3.7903622818007703`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"04c80de6-41a1-4f46-89f6-d6d492ab7193"],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
      StyleBox[{
        PointBox[{{10., 0.4}, {3., 0.5757575757575758}, {2., 
         0.8163265306122449}, {4., 0.65}, {5., 0.46153846153846156`}, {7., 
         0.6}, {9., 0.5714285714285714}, {6., 0.15384615384615385`}, {8., 
         0.3333333333333333}}], {{
          LineBox[{{10., 0.6738612787525831}, {10., 0.12613872124741698`}}], 
          LineBox[{
           Offset[{1.5, 0}, {10., 0.6738612787525831}], 
            Offset[{-1.5, 0}, {10., 0.6738612787525831}]}], 
          LineBox[{
           Offset[{1.5, 0}, {10., 0.12613872124741698`}], 
            Offset[{-1.5, 0}, {10., 0.12613872124741698`}]}]}, {
          LineBox[{{3., 0.8267027587129074}, {3., 0.3248123928022442}}], 
          LineBox[{
           Offset[{1.5, 0}, {3., 0.8267027587129074}], 
            Offset[{-1.5, 0}, {3., 0.8267027587129074}]}], 
          LineBox[{
           Offset[{1.5, 0}, {3., 0.3248123928022442}], 
            Offset[{-1.5, 0}, {3., 0.3248123928022442}]}]}, {
          LineBox[{{2., 1.0119417297212328`}, {2., 0.6207113315032571}}], 
          LineBox[{
           Offset[{1.5, 0}, {2., 1.0119417297212328`}], 
            Offset[{-1.5, 0}, {2., 1.0119417297212328`}]}], 
          LineBox[{
           Offset[{1.5, 0}, {2., 0.6207113315032571}], 
            Offset[{-1.5, 0}, {2., 0.6207113315032571}]}]}, {
          LineBox[{{4., 0.8946802424647965}, {4., 0.40531975753520355`}}], 
          LineBox[{
           Offset[{1.5, 0}, {4., 0.8946802424647965}], 
            Offset[{-1.5, 0}, {4., 0.8946802424647965}]}], 
          LineBox[{
           Offset[{1.5, 0}, {4., 0.40531975753520355`}], 
            Offset[{-1.5, 0}, {4., 0.40531975753520355`}]}]}, {
          LineBox[{{5., 0.720975722369847}, {5., 0.20210120070707616`}}], 
          LineBox[{
           Offset[{1.5, 0}, {5., 0.720975722369847}], 
            Offset[{-1.5, 0}, {5., 0.720975722369847}]}], 
          LineBox[{
           Offset[{1.5, 0}, {5., 0.20210120070707616`}], 
            Offset[{-1.5, 0}, {5., 0.20210120070707616`}]}]}, {
          LineBox[{{7., 0.873861278752583}, {7., 0.32613872124741694`}}], 
          LineBox[{
           Offset[{1.5, 0}, {7., 0.873861278752583}], 
            Offset[{-1.5, 0}, {7., 0.873861278752583}]}], 
          LineBox[{
           Offset[{1.5, 0}, {7., 0.32613872124741694`}], 
            Offset[{-1.5, 0}, {7., 0.32613872124741694`}]}]}, {
          LineBox[{{9., 0.8386898133409958}, {9., 0.304167329516147}}], 
          LineBox[{
           Offset[{1.5, 0}, {9., 0.8386898133409958}], 
            Offset[{-1.5, 0}, {9., 0.8386898133409958}]}], 
          LineBox[{
           Offset[{1.5, 0}, {9., 0.304167329516147}], 
            Offset[{-1.5, 0}, {9., 0.304167329516147}]}]}, {
          LineBox[{{6., 0.34161305789585655`}, {6., -0.033920750203548844`}}],
           LineBox[{
           Offset[{1.5, 0}, {6., 0.34161305789585655`}], 
            Offset[{-1.5, 0}, {6., 0.34161305789585655`}]}], 
          LineBox[{
           Offset[{1.5, 0}, {6., -0.033920750203548844`}], 
            Offset[{-1.5, 0}, {6., -0.033920750203548844`}]}]}, {
          LineBox[{{8., 0.5833333333333333}, {8., 0.08333333333333331}}], 
          LineBox[{
           Offset[{1.5, 0}, {8., 0.5833333333333333}], 
            Offset[{-1.5, 0}, {8., 0.5833333333333333}]}], 
          LineBox[{
           Offset[{1.5, 0}, {8., 0.08333333333333331}], 
            Offset[{-1.5, 0}, {8., 0.08333333333333331}]}]}}},
       FontFamily->"Europa-Light",
       FontSize->18]}, {
      {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}, {
      {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}}, {{}, {}}}, {{}, {{{}, {}, 
      {RGBColor[1, 0, 0], PointSize[Large], Thickness[Large], 
       StyleBox[
        LineBox[{{2., 0.5}, {3., 0.25}, {4., 0.125}, {5., 0.0625}, {6., 
         0.03125}, {7., 0.015625}, {8., 0.0078125}, {9., 0.00390625}, {10., 
         0.001953125}}],
        FontFamily->"Europa-Light",
        FontSize->18]}}, 
     {RGBColor[1, 0, 0], PointSize[Large], Thickness[Large], 
      StyleBox[{},
       FontFamily->"Europa-Light",
       FontSize->18]}, {
      {RGBColor[1, 0, 0], PointSize[Large], Thickness[Large], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}, {
      {RGBColor[1, 0, 0], PointSize[Large], Thickness[Large], 
       StyleBox[{},
        FontFamily->"Europa-Light",
        FontSize->18]}, {}}}, {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1.2222222222222225`, 0},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
   FontColor -> GrayLevel[0], PointSize -> Large, FontFamily -> 
    "Europa-Light", FontSize -> 18},
  DisplayFunction->Identity,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox["\"P(same fate in all MCs)\"", TraditionalForm], None}, {
     FormBox["\"number of microcosms ASV is present in\"", TraditionalForm], 
     None}},
  FrameStyle->Directive[
    Thickness[Medium]],
  FrameTicks->{{{{0, 
       FormBox["0", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {{0, 
       FormBox["0", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}}, {{{2, 
       FormBox["2", TraditionalForm]}, {3, 
       FormBox["3", TraditionalForm]}, {4, 
       FormBox["4", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {6, 
       FormBox["6", TraditionalForm]}}, {{2, 
       FormBox["2", TraditionalForm]}, {3, 
       FormBox["3", TraditionalForm]}, {4, 
       FormBox["4", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {6, 
       FormBox["6", TraditionalForm]}}}},
  FrameTicksStyle->GrayLevel[0],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{65, 10}, {65, 10}},
  ImageSize->400,
  LabelStyle->{
    GrayLevel[0], FontFamily -> "Europa-Light", FontSize -> 18},
  Method->{
   "OptimizePlotMarkers" -> False, "OptimizePlotMarkers" -> False, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1.5, 6.5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{
  3.7857014370144043`*^9, {3.7857016069996133`*^9, 3.7857016214968605`*^9}, {
   3.790362272018402*^9, 3.790362282975727*^9}, 3.790543441128392*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"32d9c897-6156-4d82-8c0e-11e73ad50ac9"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1680, 967},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 177, 3, 28, "Input",ExpressionUUID->"b218a98f-b5b7-4a2d-b51a-c62217f477d0"],
Cell[CellGroupData[{
Cell[760, 27, 177, 3, 53, "Subsection",ExpressionUUID->"e31d60e6-a349-43fd-9440-b11a40c41d1d"],
Cell[940, 32, 20834, 604, 1017, "Input",ExpressionUUID->"1cd405ef-f065-4f1c-9358-25bdc0d6a8ec"],
Cell[21777, 638, 199, 3, 28, "Input",ExpressionUUID->"c8a0bc07-cc4e-4264-b1a5-8d04c890a892"],
Cell[21979, 643, 201, 4, 28, "Input",ExpressionUUID->"d8f03e80-b927-495a-8d83-c2ff5137edcc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22217, 652, 176, 3, 53, "Subsection",ExpressionUUID->"f4031efd-c54c-4d32-809a-a8f650e0da45"],
Cell[22396, 657, 3478, 99, 86, "Input",ExpressionUUID->"23256e59-ef26-4ad3-bf53-61df982a4a68"],
Cell[CellGroupData[{
Cell[25899, 760, 13950, 361, 271, "Input",ExpressionUUID->"fa23bb27-e2d4-4aa1-bcaa-f06518051ce6"],
Cell[39852, 1123, 462237, 8804, 447, "Output",ExpressionUUID->"240d421d-ea2f-426f-bd22-5abc0d178a94"]
}, Open  ]],
Cell[502104, 9930, 203, 4, 28, "Input",ExpressionUUID->"40cb34a2-29e6-404b-a363-2b8a5704e02d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[502344, 9939, 170, 3, 53, "Subsection",ExpressionUUID->"38eae86d-a1fd-4c3b-be21-f058799e7377"],
Cell[502517, 9944, 5647, 157, 124, "Input",ExpressionUUID->"ba8159c6-5fcd-411e-9914-9b98dfa0c7e4"],
Cell[CellGroupData[{
Cell[508189, 10105, 1154, 29, 28, "Input",ExpressionUUID->"ca338cbc-30eb-4ff9-bc00-22d34836677e"],
Cell[509346, 10136, 343, 5, 32, "Output",ExpressionUUID->"bc78a6ba-fc20-4e16-b0cc-b9b2f9486b4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[509726, 10146, 7798, 195, 200, "Input",ExpressionUUID->"650ac7eb-2d69-4d77-8a89-d9f23f9420d9"],
Cell[517527, 10343, 56803, 1291, 636, "Output",ExpressionUUID->"8296fcb3-d62e-48ff-80e7-f32031557375"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[574379, 11640, 190, 3, 53, "Subsection",ExpressionUUID->"ca04abfd-422b-4d66-b2ab-36fb46dc6bf9"],
Cell[CellGroupData[{
Cell[574594, 11647, 10042, 262, 314, "Input",ExpressionUUID->"4b9fa0b2-eb39-4cdf-bf87-e555ad6d119b"],
Cell[584639, 11911, 40641, 705, 289, "Output",ExpressionUUID->"8f6fc928-55e3-4cf3-ba6c-fb7edaf564bf"],
Cell[625283, 12618, 527, 8, 32, "Output",ExpressionUUID->"fe308897-c4e3-4ae3-9557-c207f50b9b73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[625847, 12631, 13426, 355, 447, "Input",ExpressionUUID->"927e79bf-2619-43f6-966c-87defc83d168"],
Cell[639276, 12988, 42275, 744, 283, "Output",ExpressionUUID->"0926c027-60b9-4917-b21e-3e5c3e135e1d"],
Cell[681554, 13734, 192, 3, 32, "Output",ExpressionUUID->"f33ddf73-e6ab-4ccc-970b-b9b2c7d6a70d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[681795, 13743, 163, 3, 53, "Subsection",ExpressionUUID->"e81d88b6-ebb0-4344-af58-655b7047d90d"],
Cell[CellGroupData[{
Cell[681983, 13750, 5232, 145, 143, "Input",ExpressionUUID->"7bb3a08a-1c7d-4b7a-ab2f-e8405cb28368"],
Cell[687218, 13897, 473, 8, 32, "Output",ExpressionUUID->"93d98baf-b68b-4514-8f4c-66f36d9c0fc7"],
Cell[687694, 13907, 467, 8, 32, "Output",ExpressionUUID->"6290c600-b6e2-4595-bf69-4cc72d18f953"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[688210, 13921, 170, 3, 53, "Subsection",ExpressionUUID->"15407e4d-61d6-4555-9778-75421477ab5a"],
Cell[CellGroupData[{
Cell[688405, 13928, 21751, 579, 827, "Input",ExpressionUUID->"ba4c6fe3-ab94-40ca-b4ad-379fd0cde024"],
Cell[710159, 14509, 58166, 1032, 267, "Output",ExpressionUUID->"09118ee3-9abf-4af9-9684-b80e1898e558"],
Cell[768328, 15543, 1168, 17, 32, "Output",ExpressionUUID->"fe13714e-43bc-4cab-9e73-1ccacbc0aa13"],
Cell[769499, 15562, 102998, 1819, 267, "Output",ExpressionUUID->"e981c908-7480-447e-901e-2c1e312069e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[872534, 17386, 4960, 133, 219, "Input",ExpressionUUID->"5e88a089-b755-4c4c-9353-47a117d949c0"],
Cell[877497, 17521, 295, 5, 32, "Output",ExpressionUUID->"7e76993a-5410-4645-8b93-9381c7e6baf7"],
Cell[877795, 17528, 296, 5, 32, "Output",ExpressionUUID->"bd0ace58-37b7-4800-a0c6-1ff76afb601a"],
Cell[878094, 17535, 295, 5, 32, "Output",ExpressionUUID->"7dc58aef-49aa-4562-ac91-a0a742ff4f4d"],
Cell[878392, 17542, 295, 5, 32, "Output",ExpressionUUID->"3981cd9b-d2ac-42ca-814a-0242a7e41b9a"],
Cell[878690, 17549, 17776, 388, 392, "Output",ExpressionUUID->"5602502c-d689-4d8d-b7ce-cfd8386af63e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[896503, 17942, 4778, 127, 200, "Input",ExpressionUUID->"ca873a6c-986e-4e53-913c-f33c22e223d1"],
Cell[901284, 18071, 295, 5, 32, "Output",ExpressionUUID->"b585d288-ba82-44fd-9516-4d41e390a44d"],
Cell[901582, 18078, 292, 5, 32, "Output",ExpressionUUID->"261814da-8323-4a0f-9275-5305e027f971"],
Cell[901877, 18085, 293, 5, 32, "Output",ExpressionUUID->"5a2a1c14-1fdc-40a5-88b2-697f92e53a93"],
Cell[902173, 18092, 294, 5, 32, "Output",ExpressionUUID->"fc49b626-3e64-48b6-9710-cd0614238c6e"],
Cell[902470, 18099, 17693, 384, 392, "Output",ExpressionUUID->"47ba7dac-bf46-4e0e-a4f4-7cd2374d3c8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[920200, 18488, 698, 16, 48, "Input",ExpressionUUID->"31a22f28-6315-4975-9438-11618d5be432"],
Cell[920901, 18506, 37529, 785, 214, "Output",ExpressionUUID->"9182bba4-9c6f-4ddf-b072-0ebdded50fc5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[958479, 19297, 190, 3, 53, "Subsection",ExpressionUUID->"808e00ac-e3da-45eb-bf8d-67296cc44816"],
Cell[CellGroupData[{
Cell[958694, 19304, 8340, 213, 280, "Input",ExpressionUUID->"04c80de6-41a1-4f46-89f6-d6d492ab7193"],
Cell[967037, 19519, 7136, 164, 293, "Output",ExpressionUUID->"32d9c897-6156-4d82-8c0e-11e73ad50ac9"]
}, Open  ]]
}, Open  ]]
}
]
*)

